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features 

d Hardware copying device., v 

push button operation. 
o Copies 48K memory resident : 
;"■■ software, most 64K software. 
D No prog ramming experience 

or parameters; necessary, 
D Backs :tip QQ$3;Zm&- 
! 0:-;'&OS : 3 .3 disks:; ■ ;•■■/. :■■■]■,.};■■■/.;■■ 
p:Creates.DG53,3'ttnpTo-, 
tected and autobooting disks: 

5 WILDCARD lives; til any slot* .. 
tindetecta&J^ : by software, 

fl : Produces autob.ooting disk 

■■ fn;2-mit1UtB& : ;:'.- : ':;;.. V'. 

6 Copsesare DOS 5.3 compatible. 



a Copies become accessible 
for alterations. .; . 

□ Simple, easy-to-use 
software inclu ded- _ 

WiipCmumiitymskl also 

available, -featuring.! 

Q Automatic program compres- 
sion and BRUM file make*.. 

D .Multiplies programs- can be 
placed on the same disk. 

aRecreates basic files to toad 
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Order direct from East Side Software Co.; 344 iE. 63 St; t Sitfte 14~A; 
New York City 10021, 212/355-28^ fle^Se«ric)ittde $3.00 for 
handling. Mail and phone orders may be charged to MasterCard and 
VISA. N.Y;, State residents add safes tax. Deafer inquiries welcome. 
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Ask and 

Ye Shall Receive 

Recently I had ihe good fortune of 
reviewing your magazine (VOL #2 - ISSUE 
#2), I must say that I was really impressed 
with the quality oi" your articles. Your edito- 
rials on software copy -protection were 
informaiive and very 'up front". It's about 
time that a magazine came out and really 
told it like it is. For this I say 'Keep up the 
good work". 

Now for the parts I. didn't like. First of all 
is the fact that Hardcore is only published 
quarterly. I would like to sec a monthly 
magazine for the same cover price. Sec- 
ondly was the fact that nowhere did T sec 
any information on back issues or back cop- 
ies ol the updates. Are they available and 
what's the price of these items if available? 

That's about all I have to say except, keep 
the articles interesting and informative and 
I hope the magazine really prospers. 

Daniel L. Masterson 
Columbus, OH 



Daniel — Starting this month, Softkey will 
be publishing two magazine's, CORE and 
HARDCORE COMPUT1ST, which com- 
bined will be a monthly subscription. See. 
the publisher's message on page six for 
more information. 

In addition, to get back copies, see our 
subscription ad on page four. 



Cornelius' Opinions 
Poor for an Educator 

I wish to comment regarding the opinions 
of Richard Cornelius in '"Rebuttal" 
HardCore Computing 3.0. 

In my opinion, this is a very poor attitude 
[''"If each program can be inspected, then 
those good ideas that people come up with 
(sic) can be u/ed (pirated) by ay one else"] 
for an educator to lake. Presumably Mr. 
Cornelius is more concerned with "'trade 
secrets" vis-a-vis the "guild system" rather 
than the propagation of knowledge. It is 
incomprehensible and, 1 believe, inexcus- 



able, for an educator to take this stance. 

I have studied the code of several 
"locked" programs, and if I had written 
that code, I would prefer that it remained 
locked also! Please wit hold my name if you 
chose to publish this letter. 

Name withheld 
by request 



For readers interested in the debate over 
copy protection, the upcoming HARD- 
CORE COMPUT1ST will contain many 
letters and articles dealing with the contro- 
versial subject. 

ALL LETTERS SLNT TO HARDCORK WILL BE 
TREATED AS UNCONDITIONALLY ASSIGNED 
LOR PUBLICATION AND COPYRIGHT PUR- 
POSES AND MAY THLRlif'ORt: BE EDITED; 
PL.'ULISHliD, AND COMMENTED ON. PUB- 
LISHER DISCLAIMS ALL RESPONSIBILITY TO 
RETURN UNSOLICITED EDITORIAL MATE- 
RIAL. ALL RIGHTS IN PUBLISHED PORTIONS 
REMAIN THE SOLE PROPERTY OE SOFTKEY 
PUBLISH I NO. 
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DEALER INQUIRIES INVITED 



NIBBLES AWAY II 



SIMPLY THE FINEST BIT COPIER EVER CREATED!! 



COMPARE FOR YOURSELF 



NIBBLES AWAY II LOCKSMITH 4.0 



Nibbles Away II provides a means to 
protect your software investment by allowing 
you to make additional copies (back-ups) of 
almost all Apple "protected" diskettes. 

Nibbles Away II is user orientated; 
included are tutorials for all levels of 
expertise, beginners flowchart for "Where Do 
I Begin" to "advanced disk analysis." Nibbles 
Away II is the ultimate bit copier for the 
Apple, 

ONLY $64.95 
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DO YOU WRITE 
FICTION? 

Beginning with our next 
issue, CORE will publish 
short stories which will 
appeal to our audience. 
Submissions may be ^^ 
science fiction, fantasy, 
computer intrigue, 
BECM's (bug-eyed 
computer monsters) or 
whatever your devious 
mind may produce. 

If you are interested, 
send a self-addressed, 



\ our Writer's Guide, x 
\ Specify fiction. ? 
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While the price of everything else in 
Appledom is shooting SKY-HIGH, 
subscription rates for the new CORE and 
HARDCORE COMPUTIST magazines are 

HALF the cover price! 

Instead of 4 issues and 4 updates (a $20.00 value), a 
subscription now consists of 12 full-sized magazines (8 
of Hardcore Computist and 4 of Core— a $40.00 
value), yet our price for U.S. subscribers is still 



\ 



\ 



$20.00 



Current subscribers : Don't wait to renew. Our rates can't 
stay this low forever! 



[ ] New subscriber 
[ ] Renewal 

BACK ISSUES: 

Hardcore #1 

Update 1 . 1 

Hardcore #2 SOLO OUT! 

Update 2 . 1 

Hardcore #3 

Update 3,1 

Update 3.2 




( ) years 

subscription 

TOTAL 



SUBSCRIPTION RATES: 

U.S.A. $20.00 

1st Class, APO.FPO $29.00 

Canada $29.00 

Mexico $32.00 

All others $42.00 

BACK ISSUES: 

Issues #1,2,3: $5 each, U.S.A. 

$8 each, other 

Updates: $3 each, U.S.A. 

$5 each, other 

Subscriptions begin with 
the current issue. 

Please specify otherwise. 
Back issues available 
only while they last. 



NAME_ 



ADDRESS_ 
CITY 



STATE. 



ZIP_ 



Sorry . . . 
No phone orders 
No credit orders 
No purchase orders 
U.S. funds only 



Make checks payable to: 

CORE 

EO. Box 44549 

Tacoma.WA 98444 



IMPORTANT 

ANNOUNCEMENT 

For those who type in 
our program listings and 
are upset about the length 
of our "Bugs" column, 
take heart. We're sick of 
it, too. So, we've taken 
steps to eliminate the bugs 
and to make it easy for 
you to check for your own 
typographical errors. 

First, we will no longer 
edit program listings. 
Instead, we will print 
them just as you would see 
them on the screen. That 
means that all print state- 
ments will not be neatly 
formatted, variable 

names and numbers will 
be 'wrapped around' . . . 
in other words, normal 
Applesoft parsing. 

All line numbers will be 
incremented by ten. That 
way it will be easy to see if 
a line is missing. 

By making these 
changes, we should be 
able to eliminate our 
"Bugs" column. To help 
you eliminate your bugs, 
we will present Checksoft, 
a program that will check 
your Applesoft listing to 
make sure it has been 
typed in correctly. Check- 
soft will be featured in the 
premiere issue of Hard- 
core Computist. 
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LW;|i [) Our new 4 . 1 version is by far 
SMrri,T " the most reliable nibble- 
copy program for the Apple™, There simply is no 
competition. Allows you to backup just wontany 
diskette. Includes read/write Nibble Editor, 
Quickscan Analysis, Media Surface Check, Degauss 
and Erase, Inspector Interface and Disk-drive 
Speed Calibration utilities. All for just $99.95 at 
your local dealer or direct. 

Puts all your disk and 
memory utilities together 
where they belong— inside 
your Apple. Eprom or disk 
version is always at your 
fingertips. Search memory 

and disks forward and backwards, read nibbles 

map disk space, locate strings, the uses are endless. 

At your local dealer or direct — THE INSPECTOR, 

$59-95. 

Includes such goodies as 
scrolling screen dump, 
disassembler that shows 
ASCn, file follower of file, 
track/ sector list-finder by 
name , disk-sector lockout, disk comparer, much 
more. At your local dealer or direct — WATSON, 
$49.95. Requires The Inspector. 
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X^MEX^lO The one 16 K memory 

(unkua, m, strops!) expansion card for your Apple 
that requires no unnecessary surgery. This 
board just plugs in with no strap or additional 
connections. In spite of its quality, the Ramex-16™ 
costs just $139.95, complete with zone year 
limited warranty. 



tyME^]28 



Adds 128k of additional 
RAM to your Apple. Used 

/HljIfH-TM trt IT 



with VisiCalc™ and Super Expander™ to increase 
work space to 136k. Imagine LOADing a full 136k 
VisiCalc file into memory in 20 seconds, SAVEing it 



back in 20 seconds and spending your time 
working on the template instead of waiting 15-20 
minutes as required with other large memory 
cards. Also included is disk emulation software 
that adds 8 new commands to DOS as well as super 
fast LOAD and SAVE of an entire disk. Memory 
management is also provided to relocate DOS to 
the card as well as relocating the alternate BASIC, 
Requires no strapping to the mother board! Works 
with l6k card as well as alone. And the best part is 
the low $499.00 price! 

S 

is a VisiCalc™ preboot utility that allows up to 136k 
files using the RAMEX 128. Adds new commands to 
VisiCalc for super fast (20 second) LOAD and SAVE 
of files. Just $64.95 — requires RAMEX 128. 




A complete turnkey system of 
T memory management on a disk 
Man aBCI 1 — using either one or two 
«■=? — «_™j 16K cards. HLDOS™ loads 
DOS onto one RAM card and with the second 
card loads an alternate language onto anotiier. 
SOIIDOS™ turns a l6K card into a fast, 45-sector 
disk-drive emulator. At your local dealer or direct 
for just $34.95. 

If you use VisiCalc™, 
then you must have THE 
CONSOLIDATOR.lt will 
save you hours of keyboard time, by allowing you 
to manipulate totals of separate files without 
reentering them. Easy to use, invaluable to own. 
Just $49.95 at your dealer or direct. 

It Ml Hi IumBI lilt HH nln4- Mi WhJiMI ■^3p 

is an exciting arcade style game that tests your 
ability to survive the invasion. Fight off the aliens 
each night and rebuild your city during the day. See 
how many nights you can survive. 
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QAAEGA MICROSPORE, ING 

222 SO. RIVERSIDE PLAZA 

CHICAGO, IL 60606 

312-648-4844 
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Mission: 

To holdly go where no Hardcore 
eonipulist has gone hel'ore . . . 

Method: 
Divide and conquer . . . appledom. 

Meaning: 
Totit, I don't think we're in 
the old Hardcore anymore . . . 



Iclick! 



. , . THIS IS CORE. 

. . . PLEASE ENTER YOUR QUESTION. 

Hey. What's going on, here;? 

. . . THIS IS CORE. 

. . . PLEASE ENTER A MORE SPECIFIC QUESTION. 

It looks familiar . . . 

. . . THIS IS CORE. 

. . . PLEASE ENTER QUESTIONS . , . 

CORE? It sounds familiar, too. 

. . . PLEASE ENTER YOUR QUESTION, NOW. 

"All about Graphics" .. . Wasn't HARDCORE #4 supposed lobe a special in graphics? The 
"CORE " part looks the same .. .So where *s the 'HARD' part? 
... IS THAT YOUR QUESTION? 

Hmmmm . . . eoukl this be . . . '.' 

. . . YES, THIS IS CORE. 

So, where is HARDCORE COMPUTING #4? You know, the one that's supposed to be a spe- 
cial on graphics'.' 

. . . THIS IS IT 

No. it's not. It just says CORE on the cover. Where's the other hall", the "HARD" part'' Hey, 
Hardcore's only half here! 

. . . VERY OBSERVANT. 

... IT IS ONLY HALF HERE. 

. . HARDCORE COMPUTING HAS SPLIT INTO TWO MAGAZINES 

. . . THIS IS CORE. 

... IT IS A QUARTERLY MAGAZINE THAT WILL TRY TO TACKLE VARIOUS TOPICS 

OF GREAT INTEREST TO HARDCORE COMPUTISTS. 

. . . THIS PREMIERE ISSUE IS: 

ALL ABOUT GRAPHICS. 
... IT WILL BE FOLLOWED BY: 

n, ALL ABOUT UTILITIES IN THE SUMMER, 

#3, ALL ABOUT DATA BASES IN AUTUMN, AND 

#4, ALL ABOUT GAMES THIS WINTER! 

. . YOU SEE, WE'VE CREATED A MAGAZINE THAT WILL GET RIGHT TO THE 
VERY CORE OF VARIOUS TOPICS SO THAT . . . 

But what happened to the "HARD" part of CORE? 1 want info on making copies and altera- 
tions of all my uncopyable packages. 

. THE OTHER HALF HAS BECOME THE NEW HARDCORE COMPUTIST WHICH 
WILL MAINTAIN THE TRADITIONS OF THE ORIGINAL HARDCORE BY TACKLING 
THE PROBLEM OF LOCKED-UP SOFTWARE IN A MANNER NOT DONE BEFORE 
. . . REMEMBER THE OLD HARDCORE UPDATES? 

WELL, THEY'VE DOUBLED THE PAGES, SLAPPED A SLICK COVER ON IT AND 
WILL BE ISSUING IT EIGHT TIMES A YEAR. 

Does that mean that CORE stands for softcore? Ha, ha! 

. . , READ ON, AND FIND OUT , . , 
. . , BYE . . . 

Hey, 1 have some more questions . . . 

I want to ask if my subscription is going to be applied to both magazines . . . 

. , . YES, A SUBSCRIPTION TO HARDCORE COMPUTING MEANS A SUBSCRIPTION 
TO TWO MAGAZINES: 

FOUR ISSUES OF CORE 

AND EIGHT ISSUES OF HARDCORE COMPUTIST. 
. . . ARE YOU LISTENING? 

Don't bother me. I'm reading CORE 

. . . SORRY 

Bye .... 

Iclick! 
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NIBBLES AWAY II 

THE: BEOT BftCK-UP COF^Y TO DATI 

NIBBLES AWAY II, second edition, is a greatly enhanced and im- 
proved version of our earlier product NIBBLES AWAY. Many new and 
exciting features have been implemented in NIBBLES AWAY II to in- 
sure 'State of the Art' reliability. 

Other similar systems on the market today (regardless of price) can't 
begin to compare with all the features built into 'NIBBLES AWAY II". 

The following summary will introduce you to some of the many new, 
and asked for features, incorporated in our new release... 



Mr. Sod 



/1GAIN ! Ahead of all others, 



AUTO-LOAD PARAMETERS. 



BS| 



APPLE 



Free's the user from having to Manually Key in Parm values 
used with the more popular software packages available for 
the Appie II. 

A Screen Display of the 'Auto-load' Parameters actually 
loading, permits the user to STUDY the changes being made 
to the system! 



EXPANDED USER MANUAL 



Incorporates new Tutorials for all levels of expertice; Begin- 
ners Flowchart for 'where do I begin' to 'Advanced Disk 
Analysis' is included. 



TRACK/SECTOR EDITOR. 



An all new Track/Sector Editor including the following 
features: Read, Write, Insert Delete Search, and impressive 
Print capabilities! 



DISK DIAGNOSTICS. 



Checks such things as: Drive 
Reliability, and Erasing Diskettes. 



Speed, Diskette Media 



PROGRAM MODIFICATION. 



FAST & MORE ACCURATE 



An all new way to deal with Parameter changes; NA-II 
displays them On Screen, and in a Text format that is as easy 
to use as pressing one key to move through the listing! 

A FAST program with ACCURATE error detection makes 
'NIBBLES AWAY II' a genuinely superior product compared 

with Others. Rated fourth by SOFTALK readers (8-25 ourof 10) 



UPDATE TO NA-II 



LIST ^Ifc 
OKLY 

Special HARDCORE $ 







201 838 6463 



Updates will be made available to all earlier versions through 
COMPUTER: applications for a modest charge of Ten 
Dollars, to cover manual, Diskette, and Postage & Handling. 
Please include NAME and SERIAL # of ORIGINAL NIBBLES 
AWAY. 



DISCOUNT 

COMPUTER 

PRODUCTS 




PO BOX 31 

RIVEBOALE.N I 

0?4SI 




Mr Happy 
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At the CORE of Apple graphics arc some very simple con- 
cepts. User-useful graphic's must be simple to Use, yet allow 
knowledgeable programmers {hard-core comptitists) to go 
beyond the simple instructions and create even- more powerful 



The Apples "wide-open - ' internals encouraged the creation 
of a whole galaxy of hardware, .firm ware, software, and other 
imaginative peripheral entities that provide even greater 
graphic capabilities for the Apple. These include graphic soft- 
ware chat allows users to create novelty displays for their own 
software, faster: graphic displays for users games, and even 
software that can be included in user's programs, which cre- 
ates unique graphics not easily achieved by most users. 

There are also plug-in cards that go a step beyond software 
bv enhahtine the Annies own abilities— bv providing even 



by enhancing the Apples own abilities— by providing ever- 
more graphic abilities. One example is the host of cards that 
use "sprites" (as in Logo) for spectacular color displays anc 
complex color interactions such as translucence. 

There are printers that provide color, and innumerable pro- 
grams that allow the Apple to use printers to create almost any 
form of hardcopy graphics. 

For the artist, there are graphic tablets that let you trace -01 
draw forms on flat sheets and have them converted intc 



images on screen. There are cards and accessories that letyoi 
use a video camera to move a reahlife scene onto the screen by 
digitizing the image. Light-pens let you roam around the 
screen by using the pen on the screen itself. And there is still 



tore naraware 



Well, there's so much th; 



•st issue, a li 



created and enforced. So, CORE #1 will concentrate only on 
graphic software that does not require any extra equipment 
outside of a regular 48K Apple II (with Applesoft in ROM) 
unless otherwise specified- 
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Even with this limitation, we are left with : a ; huge field of 
software and information that cannot possibly be condensed to 
our. magazine size and format. So what we have included in 
this premiere issue will cover all the capabilities of the native 
Apple, unadorned and unenhanced. 

In order to cover: all the capabilities of the naked Apple, 
we've divided its abilities and uses into a few broad catego- 
ries, in the order that we present them,* these categories are: 

1. TEXT PAGE GRAPHICS 

2. LO-RESGLUTION GRAPHICS 

3. HI-RESOLUTION GRAPHICS 

4. COLOR 

5. VECTOR GRAPHICS 
(SHAPE TABLES) 

6. BLOCK GRAPHICS 
7.. ANIMATION 

Included are useful graphic utilities and short but interesting 
programs.: A spec iai; feature in this issue is Canfield's character 
generator. Quick Draw. Some of the interesting programs 
inciudc a game that: uses the block/character generator, a short 
shape table editor, a fascinating demonstration of shape table 
graphics, and other ''demo" programs. 

If we missed anything, we'll be sure to include them in 
CORE^, own column (MORE FROM CORE) irt the follow- 
ing issues of the new HARDCORE CQMPIJT 1ST. 



Note: For those who frown on the idea of typing in all the pro- 
grams from this isisuCi you'Ji be happy to know that the major 
programs can be found on a disk available through Softkey 
Publishing. The disk will retail for $24.95, but Hardwire 
Computing subscribers can purchase it at the reduced rate of 
$19/95. •'• . 



VMIt 1'ATIMIL 
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MEMORY MAP 



"% 



The most important aspect to remember about computer 
graphics is that everything displayed on the screen can be 
explained in terms of memory. When you look at text page 
graphics you arc really staring at a piece of memory displayed 
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00 H 08 FF 03 5C 80 



60 01 
03 



t^n the screen as text. In the same way, when you watch the 
multi-hucd low resolution (lo-res) display, you are staring at 
that same piece of memory displayed in yet another way. Of 
course, that means that all high resolution pictures (hi -res) are 
pictures of memory (oddly formatted I admit, but only mem- 
ory). 

With that simple fact in mind, the very first subject that 
must be fully understood is Apple memory. 

Whenever memory format is discussed or explained in 
CORE, it will probably he accompanied by a "memory 
map". In every instance, this bare map will have memory 
divided into "pages" consisting of 256 bytes. It's best to 
examine the memory map in order to see these divisions. 
There are four pages to every "K" (kilobyte, but pronounced 
"kay"). Don't confuse these pages with the "pages" used to 
describe the various graphic display buffers (such as text page 
one and two, or hi-res page one and two). On this bare map 
you will also find important "memory landmarks", such as 
the buffers described above. 

Because programs use memory in different ways, a firm 
visual "feel" for memory layout is important to the under- 
standing of how and why various programs work the way they 
do. The memory map will be illustrated in order to show how 
memory is being used by the various programs. 

The "normal 48K" Apple has a total of 256 pages of mem- 
ory. That's 65,536 bytes, which is 64K. The 48K used to 
describe the Apple indicates the total RAM (Random Access 
Memory) it has. The other 16K is in ROM (Read-Only Mem- 
ory). Users can only put programs into the RAM, but not all of 
RAM is available. This is especially evident if you use a disk 
drive. The Disk Operating System (DOS, pronounced "dose" 
or "doss") program occupies much of RAM (see Memory 
Map). 

And if you have less than 48K, or you have to load Apple- 
soft into memory, you may discover that your graphics ability 
has been dramatically reduced. This is because, as mentioned 
earlier, graphics display is memory display, and if that mem- 
ory is used for something else it's not available for graphics. 

All the programs in this issue require 48K with Applesoft in 
ROM, leaving RAM almost totally free for optimal graphic 
utilization— almost . . . 

Parts of the first three pages of RAM memory are used by 
the monitor, Applesoft or DOS, although there are unused 
gaps that come in handy when you need someplace to tuck a 
few small machine routines. There will be much more on 
memory in the next issue of CORE (the Utilities special 
issue). 

More detail on memory will be explained at appropriate 
sections of this issue. 
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NOT COPY PROTECTED 

GraFORTH 



i 



byfMJl Litus 



Mahe Your Graphics Come Alive 



GraFORTH combines sophisticated graphics 
features with a powerful programming language. 
Much more than a utility program, GraFORTH 's 
superior graphics make it the ultimate language for 
entertainment and educational software creation. 
Included are plotting and line graphics, text display 
and character image graphics, and high speed 
3-D graphics, all with a variety of colors and drawing 
options. GraFORTH can be used on a 48K Apple ]( 
system with DOS 3. 3 and one disk drive. A16K 
memory card is a useful option. 

The Language-. 

GraFORTH is a graphics language similar in 
structure to FORTH, but entirely rewritten for ease 
of use and maximum speed. (Counting to 30,000 in 
GraFORTH takes less than three seconds!) Im- 
mediate commands and programs can be entered 
and run directly from the keyboard. GraFORTH 
includes a full set of arithmetic and string handling 
capabilities. Since standard DOS (ilea are used, 
communication with other programs and languages 
is straightforward. 

Plotting 

and Line Graphics- 

The first level of graphics consists of plotting points, 
drawing lines, and filling areas in any of the Apple's 
high-resolution colors. Lines are drawn much faster 
than in Basic, and colored lines are never broken. 
Lines and areas can also be neatly erased from the 
screen without disturbing other Images. Turtle- 
graphics are Included to draw line shapes rapidly 
at any angle. 

Text Display 

and Character Graphics: 

GraFORTH displays both upper and lower case 
characters. You can use any of the five character 
sets provided, or create your own with the character 
editor. Character shapes may be combined to form a 



single multi-character image, then "block printed* 
at high speed anywhere on the Apple screen. 
Characters and character shapes can be drawn in 
color up to 8 times their normal size. 

Three-Dlmenstonal 
Graphics: 

GraFORTH can also draw three-dimensional color 
Images at speeds that make animation possible! 
Up to sixteen 3-D objects can be manipulated 
simultaneously. Images can be rotated, scaled, 
translated, and positioned, with or without per- 
spective. The supplied image editor allows you to 
create your own 3-0 images. Colors may be specified 
as an image is created, or selected when the image 
is drawn. 



Music: 



GraFORTH Includes a sophisticated software- 
based music synthesizer for adding music or sound 
effects to your programs. Music can be played In any 

one of several instrument voices. 



TheSystem: 



Programs written In GraFORTH can be saved to 
disk as complete stand-alone systems that do not 
require any additional software to run. This makes 
GraFORTH the ideal language for developing games 
and other graphics software. 



ThePachage 



GraFORTH is supplied on a diskette with a special 
version of DOS 3.3 that loads into a language card 
(if present), freeing up more memory for your 
programs. The disk includes many sample image 
files, utilities, and complete demonstration programs 
detailing the features of GraFORTH. Included with 
the disk is a 200-plus page tutorial explaining the 
ins and outs of GraFORTH. No previous program- 
ming experience is necessary to use GraFORTH. 
Order GraFORTH from Computer Hideout today! 



COMPUTER HIDEOUT <£A QK 

INTELLIGENT PRODUCTS FOR MICROCOMPUTERS ^ ^#^» # W *P 



TERMS; Wc Accept M.C. or VISA (Indicate Card * and 
Expiration Date) Personal Checks - Allow 3 weeks to 
clear. Please Enclose IS.OOforPostagcand Handling. 
Louisiana Residents - Please Add «% Sales Tax. 



(318) 948-9446 
P. O. Box 264 / Opclousas, Louisiana 70570 
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Contrary to what some hardcore computists claim, it is nei- 
ther unsophisticated nor infantile to use the text page for 
graphic displays. It is true, however, that some computists 
ignore the text page because they are adept at using the high 
resolution pages for graphics. For simple (colorless?) 
graphics, the text page should be utilized because it is so easy 
to use. In fact, many novice programmers use the text page for 
arcade games .... And, of course, all text-only adventure 
games use this page because it allows the program to occupy 
all the rest of memory (which is needed by even the simplest 
adventure requiring a lot of text). 

The text "screen" consists of 24 horizontal lines (rows) 
with 40 character spaces (columns) on each line. The "charac- 
ter" set that can be placed on this image area (the text page) 
consists of the ten digits, 26 upper case letters and 28 special 
characters {like ?!*= etc.) for a grand (ha,ha) total of 64 dif- 
ferent graphic symbols that can be in NORMAL (white on a 
black background), INVERSE, (black on white background) 
and FLASH (flashing between inverse and normal). 

(Note: The Apple //e has lower case letters as well.) 

Each character is composed of a matrix of seven pixels 
across by eight pixels high. The letters themselves are five 
pixels across by seven pixels high, leaving blank one vertical 
row of pixels on each side and one blank horizontal row on the 
bottom. 

There are two text "pages" occupying consecutive posi- 
tions in memory. Each page consists of one kilobyte (K) or 
1024 bytes. However, 40 columns by 24 rows is 960 bytes, 
which means 64 bytes are not displayed. The memory for text 
page one is from 1024 ($400) to 2047 ($7FF). Page two is 
from 2048 ($800) to 3071 ($BFF). 

(Note: Normally, your Applesoft program begins at 2048 
($800), which means that your program is on page two of 
text.) 



Horizontally, each set of 40 columns represents 40 consecu- 
tive bytes in memory. Vertically, however, the pattern is bro- 
ken. If the text screen was split into three equal horizontal 
sections of eight rows each and the sections were placed side 
by side, the rows would then be consecutive. 

From the point of view of memory, the text page is similarly 
broken, jumping to three separate locations every 40 bytes. 

This information is valuable if you want to use text page 
two for display purposes. Remember, if you use text page two 
for graphics your Applesoft program must begin above 3071 
($BFF), or you will be writing over the program. 

Graphics for the text page is almost always PRINTed to the 
screen. Exact positions can be specified using: 



PRINT TAB (?)«?" 

HTAB? 

VTAB? 



PRINT SPC {?)"?" 
POKE 36,? 
POKE 37,? 

Other text graphic commands include: 



TEXT 

HOME 

CALL-936 

ctrl-J 

CALL-922 

CALL-958 

CALL-868 

CALL-912 



ctrl-M 

X = PEEK (36) 

X = PEEK (37) 

X = POS(0) 

FLASH 

INVERSE 

NORMAL 



The TAB command lets you "tab" over to a specific text 
column. TAB (1) is the left-most column while TAB(40) is the 
right-most column. TAB must be used within a PRINT state- 
ment. For example: 

PRINT TAB(10)"CORE M 
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This will print the word "core" starting at column 10. 
Remember; TAB will "tab" only to the right, never to the left, 
of the current line. 

The SPC command lets you put spaces within a PRINT 
statement without having to put spaces within the print's 
quotes, 

PRINT "HELLO THERE" 

can be replaced by 
PRINT "HELLO" SPC{13)"THERE" 

Outside a PRINT statement you must use HTAB. 

PRINT "HELLO"; 
HTAB 18 
PRINT "THERE" 

HTAB, like TAB, allows printing to begin at specific 
columns, no matter where the last statement was printed. SPC 
puts spaces between statements and depends upon the charac- 
ter previously printed. 

Unlike TAB, HTAB can move the cursor to the left. 

VTAB acts like HTAB, except that it specifies the row (ver- 
tical position) from which printing begins. 

All VTABs must be in the range of one through 24, with the 
top row as one and the bottom row as 24. VTAB can move the 
cursor both up and down. 

The acceptable values for TAB and SPC include zero 
through 255, but the left-most position is specified by one. 
TAB(41) also specifies the right-most position but on the next 
line down, followed by 8 1 , 1 2 1 , 1 6 1 , 20 1 , and 24 1 . Similarly, 
the right-most position is specified by TAB(40), followed by 
TAB(80) for the next line down, and then by 120, 160,200, 
and 240. HTAB works the same way. 

PRINT TAB (40) or PRINT SPC (41) will clear a line of 
text or, after specifying INVERSE, will create an inverse line. 

This means that you can INVERSE or FLASH the entire 
text image area by: 

PRINT TAB(24«)TAB(240)TAB(24«)TAB(24») 
VTAB1 

The same goal can be accomplished with: 

PRINT SPC(241)SPC(241)SPC(241)SPC(241) 
VTAB1 

(The VTAB 1 will stop the screen from scrolling by placing 
the cursor at the top of the text screen.) 

The cursor position can be controlled by using POKE 36 
and POKE 37. In other words, POKE 36,0 works like HTAB 
1 . And POKE 37,0 is like VTAB 1 , The values to POKE into 
36 should be limited to a range from zero to 39, while the val- 
ues to POKE into 37 should be confined to zero through 23. 
Remember, the value used in these POKEs is one less than the 
value you use in a TAB, HTAB, or VTAB. 

The present position of the cursor can be determined by 
PEEKing36and37. 

You can also use POS to find the current horizontal Posi- 
tion of the cursor. Like PEEK (36), you will get a value from 
zero to 255. 



When you need emphasis within the text, you can specify 
INVERSE or FLASH, but remember to follow the print state- 
ment with NORMAL. 

For a demonstration of some of these commands, type in 
this small program: 

I REN JAGGED SCROLLER 

1 INVERSE : VTAB 24:61 ■ i:A2 = 20JST I t 

2 FOR A « Al TO A2 STEP ST: HTAB A: PRINT SPC I It); 

PRINT : NEXT :A0 = Al:Al = A2:A2 - Al:ST = - S 
T: SOTO 2 

A more elaborate way to control the text screen is to specify 
the dimensions of the "text window." Normally set by TEXT 
to 40 columns by 24 rows, the window's dimensions can be 
altered by POKEing four addresses with appropriate values. 

Window Address Minimum Maximum Text 



Dimensior 


i to Poke 


Value 


Value 


Default 


left 


32 





39 


39 


width 


33 


1 


40 


40 


top 


34 





24 


24 


bottom 


35 


3 


23 


23 



WARNING: Do not set the dimensions outside the minimum- 
maximum range. For example, POKE 33,0 (which is below 
the minimum) will "bomb" Applesoft by over-writing some 
valuable Applesoft data. 
Some commands affect only areas within the window: 

HOME (CALL -936) will erase everything inside a win- 
dow and puts the cursor at the window's upper left corner. 

ctrl-J (CALL -922) moves the cursor down one line. 

CALL -912 scrolls the window upward, erasing the upper- 
most line of text and placing a new line at the bottom. 

CALL -958 erases everything below and to the right of the 
cursor. 

CALL -868 erases everything just to the right of the cursor. 

The TEXT command resets the window's dimensions to the 
default values. 

Most utilities and business software use the text page to dis- 
play viewer information. Rarely is this text actually used in a 
creative manner because it requires extra code or would 
detract from the actual usefulness (ease of viewing) of the 
information being displayed. 

However, there are ways to express text information crea- 
tively using just the text page. These include the often-used 
inverse and flashing modes, and an excess of asterisks and 
dashes . . . but they sometimes include walking letters, falling 
letters, marquee effects, wobbly lines, moving arrows, and 
various boxes that shrink, enlarge, or fragment. 

Those who recall Text Invaders (HardCore Computing #2) 
realize that even games can be expressed on the text page. 
And Zephyr Wars (HardCore Computing #3) showed how the 
text page can be flashed so that text appears to be on the hi-res 

page. 

continued on page 54 
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VISA 



ORDER TODAY FROM: 

GARY BROWN 
P.O. BOX 727 
PHILOMATH, OR 97370 
(5»3) 929-3666 



WE ACCEPT CHECKS, MONEY 
ORDERS, VISA, MASTERCARD (NO 
COD) PLEASE ADD $3.00 POSTAGE 
& HANDLING 
OPEN 7 DAYS 9AM - 9PM 



i 



master charge 



WE WILL NOT BE UNDERSOLD 



WRITE AWAY 

An advanced, professional word 
processing system with unsur- 
passed speed and flexibility. Sim- 
ple to learn commands. Inter- 
faces easily with most printers, 

175 00 fl I LOOK!!! 



ACTION SOUNDS AND 
! HI-RES SCROLLING 

I Machine language sounds, hi- j 
I res scrolling routines and Super- 
font program available in one | 
useful package. $18.95. 




9SH 



ORDER YOURS TODAY!!; 



Limited Time Only 



NOTICE ! 

DISKS 

ARE 

MOT 
COPY 
PROTECTED ! 



HI-RES SECRETS GRAPHICS 
APPLICATIONS SYSTEMS 

Go step by step from ordinary 
Basic to better Basic programs, 
Basic to Assembly hi-res gra- 
phics. Create business graces, 
electronic and architectural 
designs, arcade and adventure 
games and more! Fastest color- 
fill routines available, more 
colors and patterns than 
anyone. 240 pages. $ 7 5 .00 r 



56 



95 



DISKETTES 



SUPER DRAW AND WRITE 

Includes Superfont program fea- 
turing 9 sizes and 8 styles of type, 
scrolling, saving, retrieving and 
manipulation of characters. 
Draw practically anything with 
the Instant Graphics program. 
$17.95. 

DONT DELAY- 
ORDER TODAY! 



I CREATIVITY TOOL BOX I 

ICreate instant people, instant I 
(graphics at the touch of the key 
j board. Write poetry, music. 72 { 
(type size/style combinations, 
I action sounds and hi-res scroll- ■ 
ling are also included, $44 . 9 5. -! 



■PAINT MASTER SCENE UTILITY 

J Allows line drawing, scene paint- 

■ ing, scene editing, screen com- 
-Bpression. Fastest color-fill routines 
| anywhere. Perfect for adventure 

■ game creation or computer art. 

■ Over 300 colors/patterns. Use 
■creations in your own program. 
E$3445r 



$349! 



$24 



95 




HIRES ARCHITECTURAL DESIGN 

Plan and design individual room, 
complete floor plans and total 
buildings. 75 different floor plan 
shapes can be easily rotated 
and moved. Lengths, diagonals 
and angles are calculated on- 
screen. -$2ft*5r 

$24.95 each 

HI-RES ELECTRONIC DESIGN 

Create and print electronic cir- 
cuit plans. Keyboard selection 
and rotation of 98 different elec- 
tronic components. Paddles or 
joysticks provide easy place- 
ment. $ 89 . 95 . 



SUPER QUALITY EPSON 
HIRES DUMP 

Best quality Epson dump features 
true black copy. Mirror, nega- 
tive, flip or rotated images avail- 
able in three sizes. Automatic 
horizontal centering. $25 .00. 




M9 



95 
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ORDER TODAY FROM: 

GARY BROWN 
KO. BOX 727 
PHILOMATH, OR 97378 
(5»3) 929-3666 



WE ACCEPT CHECKS, MONEY 
ORDERS, VISA, MASTERCARD (NO 
COD) PLEASE ADD $3.00 POSTAGE 
& HANDLING 
OPEN 7 DAYS 9AM -9PM 



master charge 



£ 



WE WILL NOT BE UNDERSOLD 



THE COMPLETE MAILING LABEL 
AND FILING SYSTEM 

Print labels 1 , 2, 3 or 4 across, 
sort on any field, do range, char- 
acter and two-level sorts, format- 
tea reports in alphabetical or zip 
code order, duplicate or cus- 
tomizea labels and much more. 

m3 *^. ^^^H Your Choice 

v 057 




i&8Sk 



EA! 




ULTRA PLOT 

Menu driven, flexible business 
graphics. Create pie, scatter, 
bar or slacked bar charts and 
line or hi-low graphs plus unipue 
U.S. map charts. Many options 
and user-friendly features. 
$70.00. 
Demo disk available. $10.00. 



AEN GRADING SYSTEM 

Alphabetizes, calculates and 
grades records of one student, 
many students, or categories of 
stuaents. Uses number grades or 
any of three types of letter 
graaes. Package includes 
demo, manual and tutorial 
sheet. -$70*00^ 



THE SMALL BUSINESS TRILOGY 

The Complete Mailing Label and 
Filing System combines with Ultra 
Plot, plus an interface that can 
transform your mailing system 
aata base into useful business 
graphics. $ 17 5 .00, j^ AQC 
Introductory Price ■ ' : < [ '- - : 



99: 



NOTI 
DISK! 

aire: 

NOT 
■Y 



DON'T DELAY 
ORDER TODAY! 



SOUND 



XPANDEER 



SOUND 



XF>ANDE~R 



* INTERFACES YOUR APPLE TO YOUR HI-FI OR OTHER AMPLIFIER! 

* SIMPLE PLUS IN INSTALLATION! 

* ADDITIONAL MEMORY NOT REQUIRED! 

* WORKS WITH ANY SOFTWARE THAT MAKES SOUND! 

* GAME PORT NOT USED! 

* NOW HEAR ALL YOUR APPLE SOUNDS THROUGH YOUR HI-FI! 

* MUSIC, VOICE, AND SAME PROGRAMS COME ALIVE! 



•Apple is a registered 
trademark of Apple Computer Inc 



i& 



*#>• 



Prices subject to change without notice 




$3 9.9 5 




I NQU I R I 



WELCOMI 
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Low Resolution Graphics 



From text to low resolution (to- res) graphics might seem a 
big step (from letters to color blocks), but it's not. You're still 
"looking" at the same block of memory (text page), except 
that now each byte is displayed as two blocks of color stacked 
one on top of the other. The two blocks take up the same' space 
on the screen as does One character, but because there are 
twice as many blocks as there are characters, the lo-res screen 
is an array of 40 across and 48 high. Each block can be any of 
16 colors j depending upon the value of the two nybbies that 
make up the byte. The lower color is determined by the 
"high" nybble and the upper color by the "low" nybble. 

Bottom Color 4 INT (BYTE/16) 

Top Color = BYTE—BOTTOM COLOR* 16 

Use the Color Code to discover the code for each color. You 
can avoid the mathematics involved in determining the high 
and low nybble by using the Low Resolution Color Character 
Chart. It gives both the top and bottom colors for all 256 dif- 
ferent byte values, as well as the character that is displayed on 
the text screen. That's right ... by switching to text, the lo-rcs 
colors are revealed as ASCII characters. The color Character 
chart is most useful in determining the relationship of color to 
text. This knowledge comes in handy when using hybrid 
graphic commands, such as lo-res commands for texl 
graphics. (See Shrinking and Enlarging Boxes.) : 

There are two low resolution display modes : full screen and 
mixed screen. With mixed screen the bottom four rows of text 
are displayed while the rest is in lo-res colors. Like text 
graphics, you can use page one and page two. However, most 
Applesoft programs begin on page two of text, 

GR initiates lo-res graphics by displaying page one in the 



mixed screen mode. To switch from page one to page two, 
POKE -16299,0. To return to page one, POKE -16300,0. To 
initiate lo-res graphics without GR, POKE - 1 6304,0 if you are 
on the text page of POKE - i 6298,0 if you are in high resolu- 
tion. To switch to mixed screen, POKE -96301,0. For full 
screen, POKE -16302,0. 

Once in lo-res, the following commands will put color on 
the screen: 

COLOR =? 
PLOT X,V 
HLINYl,Y2atX 
VLES XI, X2 at Y 

Color is set to zero by the GR command. Other colors must 
be specified by setting color from zero to 255 because the 
value placed after COLOR- is always divided by 16 and the 
remainder used to select a color. Setting color to any other 
number is an ILLEGAL QUANTITY ERROR, 

Once the color has been selected, the position must be 
given. The horizontal position (X) and its vertical block posi- 
tion (Y) must follow the PLOT command. X must be in the 
range of zero through 39, where zero is the far left edge, Y 
must be between zero and 47; zero is at the top of the screen. 
Any value outside these limits will be an ILLEGAL QUAN- 
TITY ERROR. 

Using PLOT while' in the TEXT mode will put a character 
on the text screen. For example' 

COLOR = 1: PLOT M 

The result Will be an inverse 'P* in the upper left part of the 
screen. 
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Low Resolution Color Character Chart (Hex and Decimal) 



Mode: INVERSE 

Bottom Color: 

DEC HEX TOP ASC 

00 I 

1 01 1 A 

2 02 2 B 

3 03 3 C 

4 04 4 D 

5 05 5 E 

6 06 6 F 

7 07 7 G 

8 08 8 H 

9 09 7 I 

10 0A 10 J 

11 0B 11 K 

12 0C 12 L 

13 0D 13 M 

14 0E 14 N 

15 0F 15 



Mode: INVERSE 

Bottom Color! 1 
DEC HEX TOP ASC 

16 10 P 

17 11 1 B 

18 12 2 R 

19 13 3 S 

20 14 4 T 

21 15 5 U 

22 16 6 V 

23 17 7 W 

24 18 8 X 

25 19 9 Y 

26 1A 10 Z 

27 IB 11 [ 

28 1C 12 \ 

29 ID 13 1 

30 IE 14 

31 IF 15 



Mode: INVERSE 
Bottom Color: 2 
DEC HEX TOP ASC 

32 20 

33 21 1 ! 

34 22 2 

35 23 3 # 

36 24 4 * 

37 25 5 7. 

38 26 6 & 

39 27 7 

40 28 8 ( 

41 29 9 > 

42 2A 10 * 

43 2B 11 + 

44 2C 12 , 

45 2D 13 

46 2E 14 

47 2F 15 / 



Mode: INVERSE 

Bottom Color: 3 
DEC HEX TOP ASC 

48 30 

49 31 1 1 

50 32 2 2 

51 33 3 3 

52 34 4 4 

53 35 5 5 

54 36 6 6 

55 37 7 7 

56 38 S 8 

57 39 9 9 

58 3A 10 : 

59 3B 11 % 

60 3C 12 < 

61 3D 13 

62 3E 14 > 

63 3F 15 ? 



Mode: FLASH 
Bottom Color: 4 
DEC HEX TOP ASC 

64 40 e 

65 41 1 A 

66 42 2 B 

67 43 3 C 

68 44 4 D 

69 45 5 E 

70 46 6 F 

71 47 7 G 

72 48 8 H 

73 49 9 I 

74 4A 10 J 

75 4B 11 K 

76 4C 12 L 

77 4D 13 M 

78 4E 14 N 

79 4F 15 



Mode: CONTROL 

Bottom Color: 8 
DEC HEX TOP ASC 

128 80 @ 

129 81 1 A 

130 82 2 B 

131 83 3 C 

132 84 4 D 

133 85 5 E 

134 06 6 F 

135 87 7 G 

136 88 8 H 

137 B9 9 I 

138 8A 10 J 

139 8B 11 K 

140 8C 12 L 

141 8D 13 M 

142 8E 14 N 

143 BF 15 



Mode : NORMAL 

Bottom Color: 12 

DEC HEX TOP ASC 

192 C0 e 

193 CI 1 A 

194 C2 2 B 

195 C3 3 C 

196 C4 4 D 

197 C5 5 E 

198 C6 6 F 

199 C7 7 G 

200 C8 8 H 

201 C9 9 I 

202 CA 10 J 

203 CB 11 K 

204 CC 12 L 

205 CD 13 M 

206 CE 14 N 

207 CF 15 
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Mode: FLASH 
Bottom Color: 5 
DEC HEX TOP ASC 

80 50 P 

81 51 1 Q 

82 52 2 R 

83 53 3 S 

84 54 4 T 

85 55 5 U 

86 56 6 V 

87 57 7 W 

88 59 8 X 

89 59 9 Y 

90 5A 10 Z 

91 58 11 C 

92 5C 12 \ 

93 5D 13 3 

94 5E 14 

95 5F 15 



Mode: FLASH 
Bottom Color: 6 
DEC HEX TOP ASC 

96 60 

97 61 1 ! 

98 62 2 

99 63 3 tt 

100 64 4 * 

101 65 5 7. 

102 66 6 & 

103 67 7 

104 68 8 ( 

105 69 9 ) 

106 6A 10 * 

107 6B 11 +• 

108 6C 12 , 

109 6D 13 

110 6E 14 

111 6F 15 / 



Mode: FLASH 
Bottom Color: 7 
DEC HEX TOP ASC 

112 70 

113 71 1 1 

114 72 2 2 

115 73 3 3 

116 74 4 4 

117 75 5 5 

118 76 6 6 

119 77 7 7 

120 78 8 8 

121 79 9 9 

122 7A 10 : 

123 7B 11 ; 

124 7C 12 < 

125 7D 13 

126 7E 14 > 

127 7F 15 ? 



Mode 


: CONTROL 




Mode 


: NORMAL 




Mode 


: NORMAL 




Bott 


om Color: 


9 


Bott 


om Col or : 


10 


Bottom Color: 


11 


DEC 


HEX 


TOP ASC 


DEC 


HEX 


TOP ASC 


DEC 


HEX 


TOP ASC 


144 


90 





P 


160 


A0 







176 


B0 








145 


91 


1 


i 


161 


Al 


1 


i 


177 


Bl 


1 


1 


146 


92 


2 


162 


A2 


2 


" 


178 


B2 


2 


2 


147 


93 


3 


s 


163 


A3 


3 


# 


179 


B3 


3 


3 


148 


94 


4 


T 


164 


A4 


4 


* 


180 


B4 


4 


4 


149 


95 


5 


U 


165 


A5 


5 


7. 


181 


B5 


5 


5 


150 


96 


6 


V 


166 


A6 


6 


& 


182 


B6 


6 


6 


151 


97 


7 


W 


167 


A7 


7 


? 


183 


B7 


7 


7 


152 


98 


8 


X 


168 


AS 


8 


i 


184 


B8 


8 


8 


153 


99 


9 


Y 


169 


A9 


9 


) 


185 


B9 


9 


9 


154 


9A 


10 


z 


170 


AA 


10 


* 


186 


BA 


10 


: 


155 


98 


11 


E 


171 


AB 


11 


+ 


187 


BB 


11 


? 


156 


9C 


12 


\ 


172 


AC 


12 


t 


188 


BC 


12 


< 


157 


9D 


13 


3 


173 


AD 


13 




189 


BD 


13 


= 


158 


9E 


14 


^ 


174 


AE 


14 


fc 


190 


BE 


14 


> 


159 


9F 


15 


_ 


175 


AF 


15 


/ 


191 


BF 


15 


7 


Made 


: NORMAL 




Mode 


■: L. 


CASE 




Mode 


■: L. 


CASE 




Bott 


om Col or : 


13 


Bott 


om Color: 


14 


Bott 


om Color: 


15 


DEC 


HEX 


TOP ASC 


DEC 


HEX 


TOP ASC 


DEC 


HEX 


TOP ASC 


208 


D0 





P 


224 


E0 







240 


F0 








209 


Dl 


1 


Q 


225 


El 


1 


i 


241 


Fl 


1 


1 


210 


D2 




R 


226 


E2 


2 


a 


242 


F2 


2 


2 


211 


D3 


3 


S 


227 


E3 


3 


# 


243 


F3 


3 


3 


212 


D4 


4 


T 


228 


E4 


4 


t 


244 


F4 


4 


4 


213 


D5 


5 


U 


229 


E5 


5 


7. 


245 


F5 


5 


5 


214 


D6 


6 


V 


230 


E6 


6 


& 


246 


F6 


6 


6 


215 


D7 


7 


w 


231 


E7 


7 


* 


247 


F7 


7 


7 


216 


D8 


8 


X 


232 


E8 


8 


i 


248 


F8 


8 


S 


217 


D9 


9 


Y 


233 


E9 


9 


) 


249 


F9 


9 


9 


218 


DA 


10 


z 


234 


EA 


10 


* 


250 


FA 


10 


: 


219 


DB 


11 


I 


235 


EB 


11 


+ 


251 


FB 


11 


* 


220 


DC 


12 


\ 


236 


EC 


12 




252 


FC 


12 


< 


221 


DD 


13 


1 


237 


ED 


13 


— 


253 


FD 


13 


= 


222 


DE 


14 


^ 


238 


EE 


14 


m 


254 


FE 


14 


> 


223 


DF 


15 


_ 


239 


EF 


15 


/ 


255 


FF 


15 


? 


*J> <S**4fr*h£ «-*»*^ «***V* «^*^9 


*3 «^***9 <£***< 


<S 


I 
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There are also commands that let you draw horizontal and 
vertical lines. Once the color is specified, HLIN draws hori- 
zontal lines. You must specify the column to begin drawing 
(Yl) and the column to stop drawing (Y2), followed by the 
horizontal row (X) on which to draw this line. The format of 
the command is: 

HLIN Y1,Y2 ATX 

(The comma separating the start and end columns is neces- 
sary, as well as the word ''at" which indicates the proper row.) 
VLIN works just like HLIN , except the beginning (X 1 ) and 
end (X2) rows must be specified along with the column (Y) 
upon which the line will be drawn. In other words: 

VL1NX1,X2ATY 

If X is set less than zero or greater than 39, or if V is less 
than zero or greater than 47, you will get an ILLEGAL 
QUANTITY ERROR. 

Like PLOT, both HUN and VLIN will put characters on the 
text page. 

The color of any block on the lo-res screen can be deter- 
mined by using the SCRN (X,Y) command. A number from 
zero to 15 will be returned. Use the lo-res color chart to get the 
color for that number. The values for X and Y must be 
between zero and 47. Values greater than 47 but less than 255 
will still work, but the numbers returned are not related to the 
lo-res screen. 

continued on page 55 



COLOR CODE 



Black 8 

1 Magenta 9 

2 Dark Blue 10 

3 Purple |1 

4 Dark Green 

5 Grey 1 13 

6 Medium Blue 14 

7 Light Blue 15 



Brown 
Or ange 
Grey 2 
Pink 
12 Light Green 
Yellow 
Aquamarine 
White 



What Characters are also 
Solid Lo-Res Colors? 

<Top and bottom colors the same.) 



DEC 



17 

34 

51 

68 

85 

103 

119 

136 

153 

170 

184 

204 

221 

238 

255 



HEX 
$00 
$11 
*22 
*33 
$44 
*55 
*66 
*77 
488 
*99 
*AA 
*BB 
$CC 
*DD 
*EE 
*FF 



ASC 

m 
Q 

II 

3 
D 
U 

7 
H 
Y 
* 
8 
L 
1 



MODE 
Inverse 
Inverse 
Inverse 
Inverse 
Flash 
Flash 
Flash 
Flash 
Control 
Control 
Normal 
Normal 
Normal 
Normal 
L. Case 
L. Case 



COLOR 
Black 
Magenta 
Dark Blue 
Purple 
Dark Green 
Grey 1 
Medium Blue 
Light Blue 
Brown 
Drange 
Grey 2 
Pink 

Light Green 
Yello 

Aquamarine 
White 



COLLEGiAiE miCTOCOIilPUiE? 

A JOURNAL DEVOTED TO ALL ASPECTS OF MICROCOMPUTERS IN THE UNDERGRADUATE CURRICULA 

COLLEGIATE MICROCOMPUTER is a forum for the exchange of ideas on microcomputers in all 
areas of college and university life - microcomputers in teaching, research, 
classroom, laboratory, library, studio, office, planning, athletics, and recreation. 

Articles include reviews and accounts of hardware and software uses - descriptions of 
topics, units and courses using microcomputers - results of research using 
microcomputers - analyses of experiments in microcomputer uses - student projects - 
suggestions and tips - experiences with microcomputer consulting and workshops - 
microcomputer use in office work and material preparation - and - reviews of software, 
hardware, peripherals, products, and literature. 

COLLEGIATE HI CEO COMPUTER is the only journal of its type, reaching college and 
university professionals and libraries. Readers are interested in the applications of 
microcomputers to their special uses in the undergraduate environment. 

Volume One, Number One is February 1983. Subscription rates are $28.0O/year for US 
and $36.00/year for non-US with non-US AIR MAIL available for $60.00/year, 

COLLEGIATE MICROCOMPUTER, Rose-Hulman Institute of Technology, Terre Haute IN 47803. 
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Low resolution allows you to control the colors of a 40 by 
47 block array. A single lo-res block is equivalent to 56 hi-res 
pixels. High resolution (hi-res) lets you control an array of 280 
by 192 pixels, resulting in an obvious improvement in detail. 
That's the good news. 

Now for the bad news. There are 16 lo-rcs colors, but only 
eight hi-res colors (that includes two whites and two blacks). 

HIRES COLORS 



Value 


Description 





black 1 


1 


green 


2 


blue 


3 


white 1 


4 


black 2 


5 


purple 


6 


orange 


7 


white 2 



There are several problems with hi-res color, which are 
caused by both the way color is produced on the set (TV or 
monitor) and the way the hi-res screen buffer is formatted in 
memory. (See "Color".) 

HGR initiates hi-res graphics by displaying hi-res page one, 
clearing it to black, and setting the mixed screen mode. HGR 
does this by activating a series of soft switches {addresses in 
memory that "switch" whenever they are POKEd or 
PEEKed). The screen soft switches let you switch between: 

A. Graphics and text. 

B. Full screen and mixed screen. 

C. Page one and two. 

D. Lo-res and hi-res. 

(See table of screen soft switches.) 



PEEKing or POKEing the following addresses will dupli- 
cate HGR soft switching; 49300. 49235, 49239, 49232. 

To make certain that hi-res page one is used as well as dis- 
played, POKE 230,32. To clear the screen to black, CALL 
62450. 

HGR2 initiates hi-res graphics on page two. It can be dupli- 
cated by PEEKing or POKEing these addresses: 49237, 
49234, 49239, 49232. Be sure to POKE 230,64 so that draw- 
ing will also be done on page two. To elear it, CALL 62450. 

Once graphics is initiated, it's time to draw. 

Color is specified by HCOLOR = n, where "n" is any num- 
ber from zero to seven (see hi-res colors above). Setting HCO- 
LOR = to a number less than zero or greater than seven results 
in an error. 

To plot on the hi-res screen, use HPLOT It can be used irt 
various ways: 

HPLOT X,Y can draw a dot on the screen (iTthe HCOLOR 
is correct for that dot position). 

HPLOT TO X,Y can put a line beginning with the last point 
HPLOTed and ending at the pixel whose position is X, Y. 

HPLOT XI, Yl TO X2,Y2 can put a line on the screen 
beginning on the pixel at the position Xl.Yl and ending on 
the pixel at X2,Y2. (Again, whether a line is actually drawn 
may depend on the HCOLOR specified. For more informa- 
tion, see "Color"). 

HPLOT XI, Yl TOX2,Y2TOX3.Y3TO . . . Xn,Yn 
will plot one line after another, each beginning where the last 
line ended. 

Because the screen positions are limited to 280 pixels across 
and 192 down, all values of X less than zero and greater than 
279 are met with an error, and all Y values less than zero and 
greaterthan 191 are similarly met. 

Other ways to place graphics on the hi-res screen include: 
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A. Poking values into the memory used by the hi-res page 
buffers. 

B. Using shape tables (vector graphics) . 

Graphics placed on the hi-res page can be saved as a binary 



Using Applesoft Hi-Res 

Routines from 

Machine Language 

For those who enjoy working in assembly language, 
here are all the hi-res commands available from BASIC, 
as well as four additional ones. This section is geared for 
the advanced user who is already familiar with assembly 
language. 



Zero Page Locations 

First here are some zero page locations used. 

$1A,1B Shape pointer used by DRAW and XDRAW. 
$1C Last color used (HCOLOR converted to its 

color byte. See Color Byte Table). 
$26,27 Address of byte containing X,Y point. 
$38 The bit mask for the bit in the current byte. 
$E0,E1 X-coordinate (0-279) in hex (low, high). 
$E2 Y-coordinate (0-191) in hex. 
$E4 Color being used (converted, see Color Byte 

Chart). 
$E6 Current hi-res page being used ($20: page 

one, $40: page two). 
$E7 Current SCAEE (»-256). 
$ES,E9 Location of shape table (low, high). 
$EA Collision counter (used by XDRAW and 

DRAW). 

Black and Blue 

Here's an example of how to use some of the routines 
from assembly langauge. 



INITIALIZE THE SCREEN 
SET THE COLOR TO BLUE 

MAKE THE ENTIRE SCREEN 

BLUE 

USE BLACK TO DRAW LINES 

PLOT THE FIRST POINT AT 0,0 



JSR HGR 

LDX #$2 

JSR SETHCOL 
JSR BKGND 

LDX #$0 
JSR SETHCOL 
LDA #$0 
LDX #$0 
LDY #$0 
JSR HPLOT 
LDX #$00 

LDA #$32 
LDY #$80 
JSR HLIN 
RTS EXIT TO CALLER 

Remember, to use DRAW and XDRAW, point (X,Y) 
to the actual shape, not to the beginning of the shape 
table. This means that all calculations must be done by the 
user, to index into the shape table. 



DRAW A LINE 
POESIT TO 50,128 

Y-COORDINATE 



FROM LAST 



file. To save page one on disk, type 

BSAVE name, A$2000, L$2000 
or in decimal 

BSAVE name, A8192, L8192 

By changing the address (A) to $4000, you can save the pic- 
ture on page two. There are also other hi-res "pages" that, 
though they cannot be directly displayed, can be saved. 

Page Three A$60#0 
Page Four A$800« 
Page Five A$10000 

DOS normally occupies hi-res page five. 



Basic Hi-Res Commands 



The following are 
graphics. 
HGR $F3E2 



HGR2 
HPLOT 

HLIN 

DRAW 



$F3D8 

$F457 

$FS3A 
$F601 



XDRAW $F65D 

SETHCOL $F6EC 

SCALE $E7 
ROT 



the routines available for hi-res 

Initialize and clear hi-res page 
one. 

Initialize and clear hi-res page 
two. 

Positions the cursor and plots a 
point. Enter with the Accum 
(A)= Y coordinate and the X 
register and Y register contain- 
ing the X coordinate (low, high). 
Draws a line from the last plotted 
or positioned point to (A,X) = X 
coordinate (low, high), (Y) = Y 
coordinate. 

Draws a shape. Enter with (X,Y) 
pointer to the actual shape to be 
drawn, not to the shape table 
itself. The accumulator should 
contain the ROTation factor. 
Uses current color and scale. 
Performs the XDRAW com- 
mand, same entry as DRAW. 
Performs the HCOLOR com- 
mand where the X register con- 
tains a color 0-7. 
Simply place scale factor here 
(ST A). 
See the DRAW command. 



Additional Commands 

The following commands are not available from 
BASIC. 

HPOSN $F411 Moves the hi-res cursor without plot- 
ting a point. Enter same as HPLOT. 

HFIND $F5CB Converts the current hi-res cursor's 
position to X and Y coordinates. Can 
be used to find where you are left after 
drawing a shape. After calling this 
routine, $E0,E1 is the X position 
(low, high) and $E2 is the Y position. 
Clears the current hi-res page to black. 
Clears the current hi-res screen to the 
last color plotted. 



HCLR $F3F2 
BKGND $F3F6 
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H/-RES SCREEN FORMATTING 



I. Horizontally, the hi -res screen consists of only 40 bytes. In this illustration, one byte is illuminated and enlarged. 




2. As can be seen, onlv seven bits are "lit ". Tfie eighth bit (also known as the MSB. Most Significan Bit) is the Color Bit. Although 
not shown, its value (%m> or one) determines the color combination. For more information, see "Color ". 



■M.S.B 

7 6 5 4 3 2 10 

00000000 i 



ffn]i» 



(000 0000 




3. When displayed on screen, the "dots" correspond to actual bit positions, but the positions are reversed. Ihe last dot of the 
displayed byte is actually the first bit of the byte in memory. To be technically correct, the bit numbers are from zero to seven . rather 
than from one to eight. That means that the MSB (eighth bit) is bit seven. 
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HI-RES GRAPHICS 



~\ 



scrunch /skur-runch/ (the sound of a hi-res hug 
being squished) To reduce a hi-res picture to as few 
bytes as possible so that it can be unscrunchcd. 



unscrunch /un-skur-runch/ (the sound of that 
same hug being unsquished) To return a scrunched 
picture to its original pattern. See Scrunch. 



REQUIREMENTS: 
48K Apple II (or Franklin Ace) 
One Disk Drive 

Saving a hi-res picture usually 
requires 34 sectors of disk space. That 
allows only about 14 pictures to be 
saved to the disk. Scrunchcr 1.0, a 
machine- language utility, can usually 
more than double the number of pictures 
(28 to 40, in fact!) per disk. It will also 
quickly "un-scrunch" the picture so that 
it can be displayed normally. 

How To Scrunch 

There are two distinctly different 
techniques used to reduce the amount of 
space required to store a picture. 

One method saves only the com- 
mands used to draw the picture. An 
example would be: draw a circle at 
90,90 with a radius of 20 and color it in 
with green. The picture (a green circle 
on the hi-res screen) is not saved as a 
finished product, but as a series of com- 
mands telling another program how to 
draw a picture. This method, used in 
many hi-res adventure games such as 
Wizard and the Princess, can reduce a 
picture by up to 90%. 

Unfortunately, it requires: 

1. a special editing program 

2. drawing the picture in the fewest 
number of commands. 

Another way is to condense the com- 
pleted picture. It involves scanning the 
entire picture to look for "repeaters". 
This allows you to shrink any drawing 
you have made previously, and to use 
any one of the excellent drawing pro- 
grams now available to draw the pic- 
ture. It is possible to achieve savings of 
30% to 90%, with an average of 46% . 



I find this method more suitable as it 
allows me to use free-form when draw- 
ing a picture, whereas the first method 
restricts me from freely editing and 
changing my finished picture without an 
excessive amount of effort. 

To actually reduce the amount of stor- 
age space (on disk or in memory) 
required by a hi-res picture, the picture 
must be encoded. Since the hi-res screen 
is nothing more than an array of 40 bytes 
across and 192 bytes down, the best way 
is to encode all the values that are 
repeated . . . 

For example, in illustration 1 the val- 
ues $00 and $3F are both consecutively 
repeating bytes: 

$00 occurs twice in a row. 
$3F occurs 4 times in a row. 

Only $3F is a true repeater. 




To encode a picture, 3 decisions must 
be made: 

1. Which way to examine the picture 
data. 

2. How to code in the least number of 
bytes. 

3. What value to use as a marker byte. 

1 . Scanning the Picture 

The number of repeaters that can be 
found is affected by how the picture is 
examined . There are at least three ways 
to look for repetitious values: 

A. Sequentially through memory. 

B. Horizontally through the picture (as it 
appears on the screen). 

C. Vertically through the picture. 

There is a difference between how the 
screen appears and how it's formatted in 



Illustration I 
Take a small part of the hi-res screen and look for values that repeat them- 
selves consecutively. "Repeaters" are values (bytes) that are consecutively 
repeated 4 or more times. Other repeating bytes are not called repeaters. 
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memory. 

To scan consecutively through mem- 
ory would be inefficient because the hi- 
res screen is not oriented as consecutive 
bytes in memory. And since a hi-res pic- 
ture is usually not a set of random val- 
ues, no pattern on the screen would be 
easily coded unless it was examined in 
the order it appeared on the screen, not 
as it appears in memory. 

The hi-res screen is only 40 bytes 
wide, so any value can be repeated hori- 
zontally only 40 times. 

However, it's 192 bytes tall. There- 
fore, a value can be repeated up to 192 
times. The vertical scanning method 
obviously provides a greater chance of 
finding a larger number of repeaters. 

2. Coding the Repeaters 

Now that a search method has been 
selected, it's time to create a coding 
method that uses the least number of 
bytes. 

Scruncher uses three bytes to encode 
repeaters: a Code Market; a Counter, 
and the Repeater. 

The Code Marker informs the 
Unscruhcher that encoded information 
is coming, much like the address marks 
used by DOS let it know data is coming. 
The second byte is a Counter that tells 
how many limes to repeat the third byte, 
which is the actual repeat value that is 
encoded. 



Illustration 2 



FE34 22 

FE — the Marker Byte. 

34 — Number of times to repeat. 

22 — Byte to repeat. 



In illustration 2, the three bytes are 
shown in their relationship to other 
unencoded bytes. 

Because encoding takes three bytes, a 
repeater must be repeated at least 4 
times consecutively. No space is saved 
when the repetition is less than four, and 
for every repetition greater than three, 
another byte of space is saved. If a value 
is repeated down the height of the pic- 
ture, 189 bytes are saved (192-3 = 
189). 



3. Selecting the Marker 

If any byte's value can be a part of the 
hi-res picture, what value can be used to 
indicate a coded sequence? 

There is only one criterion used to 
select the best possible marker value: 



the number of times it is found in the hi- 
res picture. 

The fewer times the byte value is 
found, the better that value will work. 
The reason for this is that every time a 
value is found which is the same as the 
repeat marker, it must be encoded, even 



DEMO 



U NGRffAL : TEH 
28 » = CHfit (4J 
3« REM 



HONE 



RELOCATE? 

40 IF PEEK (1031 = 1 AND PEEK 

(184! » 96 THEN 48 
58 POKE 123,1; POKE 104,96: POKE 

24576,8; PRINT WRUK SENG' 
68 NORMAL t TEXT : HONE \ POKE 2 

38,32; POKE - 16384,8; POKE 
- 14300,0: POKE - 14297,8; 
POKE - 16381,8 
78 IF PEEK (8 * 256 * 3! * 169 AND 
PEEK (8 * 256 t 41 ■ 255 THEN 

118 
38 VTfiB 22: PRINT 'PLEASE HAIT U 

HILE I LOAD THE FILES" 
98 PRINT Dt'BLOAB PACK,fit803": PRINT 

Dt'BLtJAD UN-PACK, At380" 
188 REM 
MERE END OF COMPRESSED 

PICTURE IS 
1(8 LQ = 8 * 256 +15 * 16 t 12 
m HONE ; POKE - 16384,8: VTAB 

22: PRINT "COHPRESS/DECGHPRE 

SS <C/D}?*;: GET A*: PRINT 
13f IF At < > "C" AND At < > * 

D" THEN PRINT "ILLEGAL ENTR 

Y": SOTO 128 
m IF At = "D" THEN 368 
158 RER 

COMPRESS OPTION 

161 VTAB 24: PRINT "ENTER NflHE 
F HI-RES PICTURE TO COMPRESS 

178 HTAB 5: INPUT "> ';KM 
188 IF LEFT* (NAt,l> = D* THEN 
TEXT : HONE : PRINT NAt: SET 

At: HONE : POKE - 16384,0: SOTO 

160 
190 IF NAt = '* THEN 228 
208 PRINT Dt"BLOAD B NAf,At2080 B 



238 REN 

COMPRESS PICTURE 

228 CALL 8 * 256 + 3 

238 LE = PEEK (Lfl) I PEEK <LG % 

1! * 256 - 16384 
240 PRINT "LENGTH OF COMPRESSED 

PICTURE: "LE 
250 PRINT 'NUMBER OF BYTES SAVED 

:"8192 - LE 
268 PRINT "PERCENTAGE DIFFERENCE 

"188 - INT (LE t 8192 * 100 

w 

278 PRINT 'BSAVE THIS COMPRESSIO 

N (Y/N)? ";: SET At: PRINT 
280 IF At jj > "Y" THEN HOME : GOTO 

128 
290 PRINT "UNDER KHAT NAME (*,# 

IS APPENDED!" 
380 HTAB 5: INPUT ■> ";Nft* 
310 IF LEFTt im,l\ = Di THEN 

TEXT : HOME : PRINT NAt: SET 

At: POKE - 16384,0: HDflE I VTAB 

22: SOTO 298 
328 IF NAt = "* THEN HOKE \ GOTO 

128 
330 PRINT Dt'BSAVE"NAt\C,At4000 

,L"LE 
348 SOTO 120 
350 REH 

DECOMPRESS OPTION 

368 PRINT "COMPRESSED PICTURE (' 

.C IS APPENDED)" 
378 HTAB 5; INPUT "> "iNA* 
380 IF LEFTt <NAt,l) = Bt THEN 
TEXT : HOME : PRINT NAt: GET 

At: POKE - 14384,8: HOME : VTAB 

22: SOTO 360 
398 IF NAt = "" THEN 410 
488 PRENT Dt"BLBAB"NAt\C,At4000 

■ 

410 CALL 3 * 256: REN UNPACK PI 

CTURE 
428 GOTO 120 
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if it is found only once (increasing the 
code instead of decreasing it!}. 

If this value was not encoded, there 
would be no way to tell the difference 
between a marker and a byte with the 
value of the marker, since they both are 
the same. 
Illustration 3 

FE01FE 

FE — the Marker Byte. 

01 — Number of times to repeat the marker 

FE — the Marker Byte. 



Illustration 3 shows this. Imagine the 
illustration as a section of the encoded 
picture, and $FE as the selected marker 
byte. The decoding program would find 
the $FE, and assuming it to be a marker, 
would repeat the value $22, 54 ($34) 
times. The program has no way of 
knowing that this byte was not a marker 
for a repeater. So to encode the informa- 
tion properly it becomes necessary to 
encode all values found that are the 
same as the marker byte . 



(0K) $00 


Jext 1™ 


4096 


Jext 2_ 


(4K) $10 


- - 


8192 


- - 


(8K) $20 




12288 


a. 

-.■ -tf _ 


(12K)$30 


16384 


., £ — 


(16K)$40 


— pj mm 




mm a, — m 


20480 


- 1- 

- $ _ 


(20K)$50 






24576 


- I — 


(24K)$60 


. - 




_ — 


28672 


— 


(28K)$70 


— —1 




- — 


32768 


- — 


(32K)$80 


- 




■■ ■— 


36864 


" — 


(36K)$90 


- - 


40960 


« ™ ' 


(40K)$A0 


45056 


- o — ■ 


(44K)$B0 


~ Q~ 


49152 


— 



q-H3 



v 



V 



S, 



B 



~m 



(48K)$C0 



Code Buffer 
1DEMO 



Hex Dump 
for UN-PACK 



0300- A2 

tm- it 

1310- FE 
8318- 20 
0320- 85 
032S- C6 
0330- FF 
0338- 03 
0340- 68 
0348- 48 
0350- 0A 
0358- 0ft 
03*0- IF 
0368- FF 
0370- 00 
0378- 63 



00 ft0 
8C 2F 
20 2E 
3ft 03 
00 20 
00 U 
EE 2F 
hi 48 
03 4ft 
03 68 
2E 4? 
6E 68 
09 20 
FF C8 
E3 E0 
it 



40 8C 
03 20 
03 C5 
90 F4 
2E03 
F9F0 
03 D0 
98 48 
4A0D 
BD69 
03 0A 
03 AD 
8D 69 
C0C0 
28 60 



30 #3 A0 
2E 03 35 
FE F0 05 
20 2E 03 
20 3A 03 
E3 All FF 
03 EE 30 
29 C0 8D 

68 03 3D 
03 0A 0A 
2E 69 03 

69 03 29 
03 68 9D 
90 07 A0 
01 60 63 



Hex Dump 
for PACK 



0803- A9 FF 
0808- A? 00 

0810- 00 3D 

0818- 20 8D 
0820- 07 09 
0823- 29 EE 
0830- 08 AD 
0838- AD 08 
0840- 85 FE 



0848- 

0850- 
0853- 

0860- 
0868- 
0870- 
0878- 



B0 08 

85 FE 

FE 8D 

86 01 
00 SC 
08 A9 

29 C0 
A2 08 



85 09 09 
8D 07 0? 

08 09 3D 
IE 08 AD 
D0 05 EE 
ID 03 D0 
IE 08 C9 

09 D0 03 
4C59 08 
8D 09 09 
CE 07 09 
00 40 A2 
A0 40 8C 
A2 08 ft? 
20 3D A3 
8D A2 08 
3D A2 08 



85 FE A9 
ID 03 A9 
FF FF CO 
08 09 F0 
EE EE IE 
40 D0 E4 
AD 07 0? 
CD 09 09 
AD 07 09 
D0 B8 A5 

00 36 00 
FD0S A0 

01 3D FC 
08 93 43 
4A 4ft 0D 
68 8D A3 



To solve the problem of selecting the 
best marker value, Scruncher searches 
the entire hi-res picture looking for the 
value that is found the least number of 
times. This value is then used as the 
marker byte and is stored as the first 
value in the code butter. Unscruncher 
then looks at this first value and uses it 
as the code marker, allowing each pic- 
ture to have the best possible value as its 
code marker. 



How Scruncher 
Works 

Scruncher examines the hi-res picture 
vertically just as it appears on the 
screen. It checks each byte to see if it is 
the value of the marker or if it has been 
encountered four times in a row. If either 
condition is true, then coding takes 
place and the code is moved to the code 
buffer. If both conditions are false, then 
it stores that unaltered value in the code 
buffer. This process continues until all 
40 columns are transferred. 

If no value is repeated more than three 
times, there are still 512 bytes (two sec- 
tors or one-half of a kilobyte) saved 
because the program ignores the pres- 
ence of "hidden" bytes on the hi-res 
screen. 

But nearly all pictures have values 
that occur more than three times . Gener- 
ally, a saving of 20% or better occurs. 



0888- 08 

0890- 2E 
0898- A3 
08A0- 08 
08A8- 85 
08B0- C5 
08S8- 00 
08C0- 03 
08C8- 84 
08D0- 00 
0SD8- FB 
0SE0- 20 
08E8- A4 
08F0- FE 
03F8- FA 
0900- 08 



0A 0A 0A 
A3 0B 0A 
08 29 IF 
BD FF FF 
03 A? 80 

03 F0 03 
C8 C0 C0 
E8 E0 28 
01 F0 AA 
CI 14 90 
08 93 20 
FB 08 A9 

04 85 03 
F0 E2 20 
F8 E3 3D 
D0 03 EE 



2E A3 08 0A 
it A2 08 AD 
09 20 3D A3 
24 01 30 08 
85 01 30 07 
20 CC 08 E6 
90 B8 20 CC 
F0 26 A0 00 
48 84 04 A4 
18 A5 FE 21 
FB 08 A5 03 
00 85 00 68 
60 AS 03 C5 
FB 08 88 D0 
FF FF EE FC 
FD 08 61 
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Entering 
the Scrancher 

There are three sections in the Scran- 
cher program. Two are machine lan- 
guage programs (PACK and 
UN-PACK), and the last one is in 
BASIC . The demo allows you to load a 
picture into memory and scrunch (using 
PACK) or un-scrunch it (using UN- 
PACK). 

Directions for Entering 
PACK 

1) Enter the monitor. 
CAIX-151 

2) Type in the hex-dump for PACK. 

3) Save PACK to the disk. Do not 
return to BASIC. BSAVE can be done 
from the monitor. Just . . . 

BSAVE PACK,A$8»3,L$106 



Directions for Entering 
UN-PACK 

1) Type in the hex -dump for UN- 
PACK. 

2) Save UN-PACK to the disk. (You 
can do this from the monitor or from 
BASIC.) 

BSAVE UN-PACK, A$3M,L$ 

3) Return to BASIC. (If you haven't 
done so already.) 

3D«G 



Directions for Entering 
DEMO 

1) Reset Applesoft pointers. 
FP 

2) Type the DEMO Applesoft listing. 

3) Save the program. 
SAVE DEMO 



To use the program, simply RUN 
DEMO. It will first relocate itself (more 
on that later), and then load the pro- 
grams PACK and UN-PACK. You will 
notice that the hi-res screen is now dis- 
played. 

At this time you will be asked either to 
"Compress" or "Decompress' 1 a pic- 
ture. The "Compress" option will 
PACK (encode) the picture so that it 
takes up less room. "Decompress" will 
UN-PACK (decode) a compressed pic- 
ture. 

Type either C or D. 

If you decide to compress a picture, 
you will be prompted to enter the pic- 
ture's name. 

If you simply press RETURN, the 
current picture (as shown on the hi-res 
page) will be compressed. 

continued on page 61 



PACK 



1000 

1010 
1028 
1030 
1040 
1050 

mi 

1070 
1090 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1250 
1260 
1270 
12S0 
1290 
1300 
1310 
1320 
1330 
1340 
1350 



« KI-REB PICTURE PACKER PROGRAM 
# 

# BY 

I ROBB CANFIELD 

I NOV. 15 1982 

* 

» 



counter .Ed m mm of tikes to repeat 

FIRST.TME.RAN .ED <01 "00 MEANS FIRST RUN) 
TABLE .EC 13 LOCATION OF BYTE TO REPEAT 
YSAVE .E8 *4 Y-RE6 SAVE AREA 



REP, CHAR .Efl *FE 



,0R 1803 
.TF PACK 



DARKER CHARACTER 



* FIND BEST REPEAT BYTE. BY 

t SEARCHING THRU THE HIRES SCREEN 



SEARCH 



1370 
1380 
1390 



LDA #IFF RESET LAST. COUNT 

STA LAST. COUNT 

LDA Ml RESET SEARCH POINTERS 

STA CURRENT 

STA REP. CHAR 



1400 


LDA H00 


1410 


STA CURRENT. COUNT 


1420 


STA -1*1 


1430 


LDA «20 


1440 


STA .1*2 


1450 




1460 . 1 


LDA *FFFF SET A BYTE FROM HIRES SCREEN 


1470 


CKP CURRENT SAKE AS REPEAT BYTE? 


1480 


BNE .2 NO 50 CONTINUE 


1490 


INC CURRENT. COUNT 


1500 


BED .3 


1510 .2 


INC . 1+1 INCREMENT ADDRESS 


1520 


BNE .1 


1530 


INC .1+2 


1540 


LDA .1*2 IS IT 40? 


1550 


CMP 1*40 


1560 


BNE .1 


1570 


LDA CURRENT. COUNT GET BEST REPEATE VALUE 


1380 


BNE .5 


1590 


LDA CURRENT GET BYTE 


1600 


STA REP. CHAR 


1610 


JMP .4 


1620 ,5 


CKP LAST. COUNT 


1630 


BSE .3 


1640 


STA LAST. COUNT 


1650 


LDA CURRENT SAVE REPEAT BYTE (NEN ONE) 


1660 


STA REP. CHAR 


1670 




1680 .3 


DEC CURRENT SET NEXT BYTE TO CHECK 


1690 


BNE .0 


1700 


LDA REP.CKAR SAVE REPEAT BYTE IN BUFFER 


1710 .4 


STA (4000 


1720 




1730 




1740 




1760 t START TO COMPRESS PICTURE, 










17B0 




1790 




1800 




1810 


LDX 1*00 RESET HORIZONTAL OFFSET 


1820 


STX COUNTER RESET REP COUNT 
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THE UFD FflCTDW 



When designing a game, one must 
create game images that do not replicate 
(copy) those already closely identified 
with another game. That means that a 
game designer must not use Pac-Man, 
because thaL would be a copyright 
infringcmenl. It would be sort of like 
using Mickey Mouse without Disney 
approval. 

Besides, unless the game is meant to 
satirize another game's images, it is very 
unprofessional to copy images created 
by another designer. 

Image duplication is easy to avoid in 
the case of large shapes, but it is almost 
impossible to create an original design 
for small shapes (especially when work- 
ing with as small a shape as seven by 
eight pixels). 

The original Nighl Falls contained 
saucer- style entities that had been ovcr- 
'uscd as an invader image. Of course, 
there were only a few possible designs 
for saucer-like entities on the small scale 
that the game required. These early sau- 
cers were simple (both in code and in 
plotting) in order to maintain the game's 
speed. They arc shown in the Night 
Falls advertisement. The early saucers 
are no longer used in the version of the 
game being sold. In fact, no saucer 
shape is stored in the program because 
Night Falls creates its own saucer- 
shapes as they are required. The game 
comes with its own UFO Factory. 
The program accompanying this 



flij Eat N. EsigfM 



article is similar to the Night Falls UFO 
Factory only in principle. In Night 
Falls, the UFOs come in a variety of 
color combinations and shapes. This 
version creates UFOs in white only. 
Although limited to a single color, the 
UFO Factory will still create hundreds 
(if not thousands) of UFOs with a very 
small likelihood of duplicating itself, 
much less another game's images. 

The si/e (width and height) of the 
UFOs depends upon a number (one 
through six) that the user selects. The 
Factory chooses the number of UFOs to 
display (in rows and columns) and then 
randomly creates them. After the UFOs 
have been created, you can quit or try 
another size. Just follow the prompts. 

Those who have been around since 
the first Hardcore Computing will note 
that the UFOs resemble the old "Tnk 
Blot" shapes, but on a much smaller 
scale. 

The basic algorithm is the same, too. 
For each vertical line needed to draw the 
UFO, the Factory selects two random 
numbers, from zero to the selected 
width. After these two points have been 
moved to the left and right of the center 
of the figure, a line is drawn between 
them. There is a calculated overlap 
added to one and subtracted from the 
other. And finally, after drawing all the 
line pairs, an unpaired line is randomly 
placed in the figure to make sure that the 



two sides are connected. : 

In Night Falls, these numbers are, 
stored in an array so that the UFOs can 
be animated, created, and destroyed'. In 
the Factory, they are only calculated and ' 
plotted. 

What can be done with the UFO Fac- 
tory'? An addition used to change the 
Factory into a game would be interest- 
ing, letting you take the model for a test- 
drive through the stars. 

But basically, the Factory is presented;) 
here to show how design problems can 
be aided by the computer. Other Factory 
algorithms were tested (incorporating 
such parameters as 'rotate-ability' and^ 
scale, and the usual assortment of un-" 
saucer-like shapes, such as globular, 
"bugs' and eye-balls), then discarded. 
The easiest shapes, of course, werelUC 
bilaterally symmetrical (left arid rightj^^ 
mirror images). You could also try^^* 
shapes that are radially symmetrical, &$£• 

In fact, whenever innumerable varia- _ ^, 
tions on a particular theme are sought, S™* 
use your computer to generate them. 
There is no need to use random parame- 
ters, even though they come in handy" 
with a shape as common as a UFO. 

Jfyott need game shapes and fear that 
you may unknowingly copy another: 
game's images, just create your own* 
shape factory and discover how many J 
shapes there really are out there, ' 
unused, free for the making . . . 
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280 PRINT "ALL THE KODELS IN THE 


1650 111 : mm 


UFO Generator 


M&E SALARY "i 
293 JMffil : RETURN 


1799 SEH 
AGAIN? 


1 REfI 


999 REH 




UFO GENERATOR 


ENTRANCE 


1300 GOSUB 50 




Mi SQ5UB 200 


1810 PRINT 'TRESS KEY FOR 811 OF 


J REM 


Hi? SGSUS 50 


B a i 


ADAPTED FROM 


im PRINT "NOUEL OF UFO? (!-5!" 


1350 GET M 


2 REfi 


1 


1360 IF ft* = "3S" THEN 2ffl 


"NIGHTFALLS" 


112S GET A$: IF A* = B )!" THEN 23 


1990 GOTO 1000 


|# HCGL0R= 7; GOTO 1000 


00 


im m 


49 REfl 


i!30 im = VAL (fit; <■ 3: If- m < 


1999 REM 


PRINT ROUTINE 


4 OR m > 9 THEN 1120 
1150 80SUB 50: HTAB 5 


EXIT 


31 VTAB 2!l CALL - 368: HTftB 12 


1160 PRINT 'THIS IS THE *| 


200s GOSUB 50 


: mum 


&'?# ON H - 3 GOSUB 2100.2200,2 


2010 PRINT 'THffllK-YOU FOR VISITI 


99 REH 


300,24^,2500,2600 


NG" 


DRAW UFO 


1199 m 


2S20 GOSUB 210 




BEGIN DRAW CYCLE 


2090 VTAB l: EMi 


m m = rnd (i) * m + m / M 




2#?9 REH 


110 U2 * m ffi * m - m 1 3s 


1200 HSR 


UFO TYPE 


120 HPLGT X + Ui,Y TO X + Ii2,Y 


1250 11 = 250 / im * 4) / 2 




III HPLOT I -m,f 11 I - U2,Y 


1300 FOR 1 = 1 TQ R 


2100 PRINT Ml! COMPACT IdPGRT hJ : 


Iff RETURN 


1350 N y * («8 * 4) * 2 


RETURN 


199 REN 


1411 FOR H = 1 TQ 150 / <M * 4! 


22M PRINT "!2) DOMESTIC COMPACT 


LOGO 


1500 for i « i mm .'-"4 


*; RETURN 




1511 V = H * !N« + 4) + N 


230S PRINT "(3) SftLACTIC RUN-ABO 


200 TEXT i HOME 


1520 GOSUB 100 


UT": RETURN 


210 INVERSE : VTAB 231 PRINT SFCE 


1540 NEXT 


2400 PRINT ">45 FAMILY -SIZE UFfJ B 


3?) 


rsii v = y - RNA u) * M + 2 


! RETURN 


251 YTAB 23: HTAB 10 


U20 U! = «H:U2 = - WH 


2500 PRINT "(5! LUXURY LIHDSINE" 


263 PRINT "THE U.F.G, FACTORY" 


1630 HPLOT I + ttt.Y TQ 1 - 1 - K 


: RETURN 


270 VTfiB 24: HTAB 2: NORMAL 


N,Y 


2603 PRINT "(6i GAS-HOG": RETURN 



(NOT Copy-protected!) 




As Commander of 
the Emerald Cityscape, 

flow many nights 
* can you survive 



Are you really good enough for this one? 
Can you make it through to just one more 
dawn? \ine levels of play from beginner 
to impossible. For the Apple II or II +, 
4SK with paddles or joystick. 
See NIGHTFALLS at your dealer or order 
direct for $29.95. Mastercard and Visa 
holders order toll-free, 1-800-835-2246. 



<OA/W° 

OAAEGA MICROVUWE,INC 

222 So. Riverside Plaza 

Chicago, 11. 60606 

312-648-4844 



COLOR 



Going from 16 lo-res colors to only six hi-res colors (if you 
consider both types of black as black, and both whites as 
while) is sometimes difficult to accept. So it might come as a 
disappointment to also discover that the so-called 
"higher resolution" of 280 dots across by 192 high must be cut 
in half whenever color becomes an important element in the 
hi-res display. 

In otherwords, there are only 1 40 horizontal points, though 
there are still 192 points vertically. And you are limited as to 
what colors can occupy certain adjacent horizontal positions. 
Why is there so much trouble with the horizontal points of 
color? 

The answer lies in the way the Apple hardware uses the 
color display (see "Why Only Blue, Green, Purple and 
Orange?' 1 ) and the way the Apple memory is displayed. 

The manner in which Apple memory is shown on the screen 
is the key to understanding how best to use the available color 
for hi-res displays. 

Unlike the text and lo-res displays, when the hi-res buffer is 
put onto the screen, it is a more "direct" process (called "bit 
mapping"). In text, a single byte of memory becomes a single 
character on the screen. One way to describe the text display, 
is to describe it as 40 bytes wide by 24 bytes high. In lo-res, a 
single byte of memory is split into two nybbles and displayed 
as two stacked blocks of color. Again, it is only 40 bytes 
across and 24 high, but the resolution is doubled because ver- 
tically there are twice as many controllable blocks. 

In contrast, the hi-res page is eight times as detailed in the 
vertical dimension: 8 times 24 is 192. But horizontally, it's still 
only 40 bytes across. And only seven of the eight bits that 
make up that byte are displayed. Horizontally, the hi-res 
image is seven times as detailed as the lo-res image. But 
because of the 40-byte horizontal capacity, certain color limi- 
tations are created. 

The "pure" hi-res colors are limited to two blacks, two 
whites, a blue, a green, a violet and a red . But certain horizon- 
tal positions are limited to certain color combinations. Starting 
at the left side of the screen, the first hi-res dot is at position 
zero, the next is one, then two and so on to the right until the 
right margin is reached at point number 279. All odd- 
numbered points can be either green or red (or black), while 
all even-numbered points can be blue or violet (or black). 
White is created by any two horizontally adjacent dots. 

Color by the Byte 

EVEN ODD TOGETHER ABSENT 

SET Blue Red White 1 Black 1 

NOT SET Purple Green White 2 Black 2 



Whether that even-numbered dot is blue or violet depends 
upon the invisible eighth bit of that byte of memory. The red or 
green is similarly controlled. 

That invisible bit is called the High Bit (MSB, Most Signifi- 
cant Bit). When it is set (equal to one), the even- numbered 
points are blue and the odd are red. When it is not set (a zero 
value), the even points are violet and the odd are green (see 
"Color by the Byte"). 

That simple pattern would be easy if it were not for that 
same invisible eighth bit ... and with only seven bits dis- 
played, the pattern for odd/even is just the opposite for bytes 
sitting side-by -side. It takes two horizontally adjacent bytes to 
create a repeating pattern : 1 1 1 1 1 1 010. If the first of the 
40 bytes across is zero, and the last (to the tar right) is 39, then 
even bytes have all blue/violet first, third, fifth, and seventh 
bits, and odd bytes have all red/green for those same bits! If 
that isn't confusing, you should be writing this introduction to 
color. 

Because the two "complementary" color groups (high bit 
set and high bit not set) are mutually exclusive in any particu- 
lar byte, green and red cannot be put in the same byte (see 
Impossible Color Chart). When the high-bit-set color is 
placed in the same byte as a high-bit-not-set color (even 
black!), an interesting color change occurs because the high 
bit changes. 



Impossible Color Combinations 

(in the same byte) 



first the second color 
color can be anv of these: 



the first color will change 
from: to: 



green (red, blue, white 2, black 2) green red 

violet (red, blue, white 2, black 2) violet blue 

red (green, violet, white 1, black I) red green 

blue (green, violet, white 1, black 1) blue violet 



Now that you are fully exasperated at the Apple colors, take 
heart. It is possible to get more colors . . . some claim only 21 
colors total, others claim up to 256. 

"Twenty-One Colors" is a program that creates "artificial" 
colors by placing two colors next to each other . . . vertically. 



1 


HEK21 


COLC 


10 


HSR 




2* XX = 28: YV = 28 


31 


FOR X = 


i TB 7 
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41 FOR Y = TO 7 

51 FOfl Z = TO YY STEP 2 

60 HCOLOR= X: HPLOT I t U,Y * YY + I TO K t U + U 

,Y » YY M 
71 HCOLOR= Y: HPLOT X ♦ KK,Y ♦ YY + Z + 1 TO K * XX ♦ 

H,Y t YY t Z + 1 
80 NEXT : NEXT : NEXT 

In a way, there are 256 colors available, although only those 
that can be specified by HCOLOR =* are solid colors. In order 
to get the other "colors", use these locations: 

Hex Decimal Use 

$1C 28 Color byte used to alter background 

color (CALL 62454). 
$E4 228 Color byte used by HPLOT and DRAW. 

To use these locations, just POKE in a value from zero to 
255. 

To demonstrate the other "colors, " try the programs entitled 
"256 Background Colors" and "256 HPLOT Colors." 

10 REM 256 BACKGROUND COLORS 

28 HSR: HOME 

40 FOR A = i TO 256 

50 POKE 28, ft 
60 CALL 62454 

11 VTAB 24; HTftB 15 
100 NEXT : END 

Did you notice that only certain colors are solid? 

Color Byte Chart 

Value HCOLOR 

to Poke Value Color Name 

Black 1 

42 1 Green 

85 2 Blue 

127 3 White 1 

128 4 Black 2 
17* 5 Purple 
213 6 Orange 
255 7 White 2 

To HPLOT with 256 colors, add these lines to the prior 
program: 

10 m 256 HPLOT COLORS 

30 8 = 128 

50 POKE 228, ft 

60 IF A > B THEN 110 

70 HPLOT 0, A TO B, ft 

110 HPLOT 8, A - B 

120 HPLOT TO 279, ft - B 

130 GOTO 100 



? Why only. 
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When the hi-res colors are described as red, blue, green, pur- 
ple, black and white, but you can't quite adjust the color set to 
show all those colors simultaneously. , . but don't worry. The red 
is really quite a bit orange, the blue is a bit greenish, the green 
(with its share of red and blue) is a light green, and the violet is 
quite pink! The reason why the colors arc not "pure" is that 
there are only three so-called "pure" colors and the Apple does 
not display any of them by themselves. 

All the Apple colors arc really combinations of these basic 
colors: red, green, and blue. These are not really true red, green 
or blue but are rather the primary additive colors of light. The 
colors we normally associate with primary colors (yellow, blue 
and red) are the primary subtraetive colors of pigments. If all the 
primary subtraetive (pigment) colors are mixed, the result is 
black by subtraction. Mixing the primary additive colors result 
in white by addition. 

In the illustration above and on your set, these additive colors 
arc in vertical bands (though they will appear as dots, hexa- 
grams, or bars when examined closely) that are labeled here as 
R,G,B ( for Red, Blue. Green). 

The Apple 'pixel' i.s actually not one, but one and a half 
screen pixels (colors). That means that the Apple colors are all 
color combinations. White is, of course, still composed of all 
three colors in equal proportion. And black is the absence of 
color. 

When the Color Bit is set. the Apple pixels move three quar- 
ters of a color to the left, hence the color change. Green 
becomes red, violet becomes blue. White and black remain the 
same except that they are also shifted to the left. 
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Applesoft BASIC comes equipped with its own hi-res shape 
storage and display routines. Instead of HPLOTing shapes, 
programmers can use shape tables and all the simple com- 
mands that go with them: 

DRAW 
XDRAW 

SCALE 
ROT 

A shape table is a collection of shape definitions, which in 
turn are a collection of drawing instructions called vectors (sec 
Hardcore Computing Vol. 1, No. 3). These shapes can be 
placed anywhere on the hi-res screen by using the simple com- 
mand: 
DRAW n AT X,Y 

For example, if a "Pac-Man" is stored in a shape table as 
shape definition number one, it can be drawn in the center of 
the screen by entering: 
XDRAW 1 AT 140, 90 
or . . . 

HCOLOR = 3 
DRAW 1 AT 140, 90 

To erase it, you can: 
XDRAW 1 AT 140, 90 

or . . . 

HCOLOR = 
DRAW 1 AT 140, 90 

Unlike HPLOT, no matter how complex or simple the 
shape, it can be easily drawn using the same command. 

Other features not available to HPLOT, but part of the vec- 
tor graphic subroutines are SCALE AND ROT 

To increase the size of the shape being displayed, you need 
only change the scale. For example, to make your Pac-Man 
into a giant . . . 

SCALE = 10 
XDRAW 1 AT 140, 90 

SCALE can be set equal to zero through 255, with each 
increment from one to 255 being that much larger than the 
original shape. Setting SCALE to zero docs not make it 
smaller. Instead, a scale of zero acts like 256! (To see SCALE 
in action, check out the program Design Plus, by Neil Taylor.) 

ROT is the command for rotation. It allows the user to turn 
the shape around. To turn it 90 degrees to the right, just . . . 



ROT = 16 

XDRAW 1 AT 140, 90 

Rotation can be used to spin your shape around its origin 
(the start of the shape's first vector). It can also be set equal to 
zero to 255, but whether the shape actually changes oriention 
depends upon its scale. At SCALE = 1 , there are only four 
effective rotations. 



ROT = 

©through 15 
16 through 31 
32 through 47 
48 through 63 
64 through 79 
80 through 95 
96 through 1 1 1 
112 through 127 



Degree 

90 
180 
270 

360 ( ) 

450 ( 90) 

540(180) 

720 (270) 

and so on ... through 255 

That means that at SCALE = 1 , even if you set ROT =15, 
the shape will still act as if you had set ROT = 0, It will 
change, though, at ROT = 16. 
At SCALE = 2, these are the effective rotational values: 

0, 45, 90, 135, 180, 225, 270, and 315. 

At SCALE - 3 there are 16, at SCALE = 4 there are 32, 
and finally at SCALE - 5 and higher, all 64 rotations are 
available. In other words, at SCALE = 1 through SCALE = 
5, the number of rotations doubles each time the value of 
SCALE increases by one. 

Of course, ROT = is the same as ROT = 64, which is the 
same as ROT = 1 28 and ROT = 192. 

It is possible to store the entire character set in a very large 
shape table . But, unlike the normal characters on the text 
screen, the characters are alterable and they can be rotated and 
enlarged with a couple of simple commands. In this way, text 
can be set at various angles and sires (subject to the limitations 
described above). 

A special feature of shape tables is the XDRAW command. 
Unlike DRAW, XDRAW does not need to have an HCOLOR. 
It will draw a shape by exclusively ORing it; that is, by apply- 
ing the shape on screen so that all parts placed over an "unlit" 
pixel will flip the pixel on, and all parts shown over a "lit" 
pixel will flip it off. 

XDRAW lets you draw without erasing the background. It 
also lets you un-draw the same shape the same way, preserv- 
ing all overlapping images. 

Both DRAW and XDRAW using scale and rotation are used 
in NightFalk (Hardcore Computing Vol. 1, No. 3). 
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Page- flipping is most often used to 
remove the "shimmering" effect caused by 
animation techniques that require undra- 
wing and redrawing of objects in motion. 
By drawing on an undisplayed hi-res buffer, 
then displaying the page after all the undra- 
wing and redrawing is finished, and then 
drawing on the other page (formerly dis- 
played, but now "hidden"), exceptionally 
smooth animation can be achieved , 

But page- flipping can be taken one step 
further than simply "smoothing" anima- 
tion. By flipping between pages at a very 
high rate, a most unusual effect is created: 
the two pages seem to merge. 

And speeding up this page-flipping even 
further creates a still more startling effect 

Design Plus includes a page-flipping rou- 
tine that switches between the two hi-res 
pages at a rate of approximately forty-three 
thousand times per second. This produces 
an unusual shimmering effect on the moni- 
tor by taking advantage of the monitor's (or 
television's) inability to display a screen as 
quickly as the computer can. The computer 
changes the display before the monitor has 
shown all of the previous picture, causing 
only fragments of each screen to be viewed. 
The solid-looking parts of the picture arc 
those areas which are the same on both 
screens. 

T he main purpose of Design Plus is to 
simply create interesting effects on your 
Apple. Most of the program is written in 

I 
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subroutines, including the drawing, incre- 
menting, and checking of the keyboaid. 
These could all be combined, but the sepa- 
rate subroutines make it easier to use page- 
flipping, and to change the program. 

The flow of control within the program is 
easy to understand if you know the 
sequence used in page -flipping. Figure One 
shows the general procedure used in page- 
flipping and demonstrates the basic princi- 
ples behind these procedures. The 
right-hand column shows the equivalent 
instructions from the program. 

The next step is to know how to do this on 
the Apple. Page-flipping requires both the 
ability to draw on either page and the ability 
to display either page. The Apple can fill 
both of these requirements. 

Figure Two contains the necessary loca- 
tions for page- flipping on the apple, and an 
individual explanation of each. 

The following variables are also in the 
program but are not unique to the page- 



flipping routine: 

SC— SCALE of the square 
INC— The increment that is added to 
the SCALE 
A$,K%,A,B— Scrap variables 

The shape table used has a center that 
remains stationary when the table is 
rotated. The shape table is poked into mem- 
ory at hi-res page 4 and the pointers at $E8/ 
232 are set so that you don't have to worry 
about them. For those who arc curious, the 
tabic is printed here, 

80ft0: 01 m 04 00 38 36 2D 24 07 00 
£8:00 80 {the pointers} 

The page-flipper routine is called through 
the step routine in the section which reads 
the keyboard. The machine language flip- 
per is poked into memory directly follow- 
ing the shape table. It does not depend on 

continued on page 34 
Figure 1 
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Clear both pages 
Draw on page I 

A. Display page 1 

B. Change the picture 
Draw on page 2 

A. Display page 2 

B. Change the picture 
Loop back to 1 



HGR: HGR2 
POKE drw;di 
POKE S1,0 
GOSUB 22ft 
POKE DRW,D2 
POKE S2, ft 
GOSUB 22ft 
GOTO 2ft 



GOSUB 190 
GOSUB 19ft 
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FROM BEAGLE BROS 
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Alpha Plot 

Hi-Res Graphics Text Utility 
by Bert Kersey fr Jack Casaidy 

Here are a few of Alpha Hot's useful gra- 
pblcs.features. Compare with other graphic 
utilities at any price — 
HI-BBS DRAWIlTCh Create hl-res pic- 
tures ana charts with text, on both pages; 
all appendADle to your progxame. Optional 
Xdraw cursor (see lines before drawing). 
Mix colors ft Reverse (background oppo- 
site). Circles, Boxes, Ellipses; filled or out- 
lined. Compree* Hi-Res to 1/5 disk tpwe. 
Relocate any portion of an image anywhere 
on either page. Superimpose too 3 convert 
hl-res to lo-res for colorful abstracts! 
HI-RUB THXT: Beautiful upper/lower 
case with descenders (no hardware 
required). Color and reverse characters 
posttionable anywhere (no vtab/htab lim- 
itations). Professional-looking propor- 
tional apaclng and adjustable character 
height and letter spacing. Sideways typing 
for graphs tool 

»D Unprotected dish (4aKmliuJ 
SO ° Bsatfe Bros Apple Tip BOOK »4 
D PBelcb V Poitfifl Chart 




Beagle Bag! 



12 Sames on One Big Disk 
by Bert Kersey 

Twelve great games from our classic Beagle 
Bros collection— TextTraln, Slippery Digits, 
Wowzo, Magic Pack, Buzzword... Almost all 
of our "Game Pack" games have teen update 
ed and re-released on one Jam packed un- 
protected disk! ALSO INCLUDED Is OUT 
"Beagle Menu" greeting program (descrip- 
tion under "Typefaces" disk on this page). 

Compare Bosjps Bag with any 1-game 
locked-up disk on the markot today) 

All 12 games are a blast, the price is right, 
the Instructions are crystal clear, AND the 
disk is copvablel You can even list the pro- 
grams to see what makes them tick. 1 
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Unprotected, l^addlfla NOT required- 
Beagle Menu wurlm with all normal 
UOlTdtBVte. tnr-ludee Fa&kfl/PoJsfls Chart, 



Frame-XJp 

Graphics Display Utility 
by Tom Welshaar 

Frame-Up Is a very-high-speed Apple "slide 
projector" utility that lets you create profes- 
sional-looking displays of Intermixed hi- 
res, lo-res and text pages on any Apple. 
Frame-Up Is very easy-to-use and above-all 
1PABT, allowing you to load hl-res pictures, 
for example, in. avi-aeoond*) that's three- 
times faster than normal! Paddles or key- 
board are used to change Images In forward 
or reverse order, skipping pages If you 
want. OR preeentatlons may be left unat- 
tended, with each page Jnoivianally timed 
to appear and remain, on the screen from 3 
to 99 seconds, as you choose. 

Frame-Up includes a sophisticated black 
and white text screes editor that lets you 
create text "slides" as part of your show. 
You can even add type "live" on the screen 
during your presentations. Up to 17 til- res 
or 136 lo-res/text pages may be stored per 
disk. One or two drives are supported. The 
order and timing of your graphics and text 
images may be easily (and Instantly I) ar- 
ranged and rearranged. Frame-Dp includes 
a display module which may oe copied 
and distributed to your associates so they 
can run your display, as you designed It, on 
their Apple or ANY Applel 

Frame-Up is Ideal for store displays, pre- 
eentatlons to the boss, club programs, trade 
show booths, product demos, promotions, 
seminars, conventions, classes, and so on. 

|0 Maclilj^e language. Unprotected. 4SK 
minimum. Peek/Poke Chart Included. 



SHABLfl BROS DISKS AHJS UBLOCKBD 

AND UNPROTECTED. THIS MEANS EVERY 

PROGRAM B MSPECTABLE, CUSTOMEABLE, IF 

YOU WANT, AMD COPYAHLE, GIVING YOU THE 

MOOT FOR YOUR SOFTWARE DOLLARS. 

DONT SETTLE FOR LESS. 





| Apple 
Mechanic 

Shape Writer/Byte-Zap Utility 
by Bert Kersey 

Another bestselllng multiple-utility disk- 
Nine useful, llstable, copy able and customiz- 
able programs— 

SHAPE EDITOBj Put professional hl-res 
animation In your programs. Keyboard- 
draw any shape and let your Apple write a 
shape table and store it on disk Design 
large and small custom typefaces too, with 
special characters. 8 fbnts on the disk IIST- 
able demos show how to use shape tables to 
animate games, graphic displays, and at- 
tractive Charts 9 Graphs. A valuable ttme- 
savlng utility/learning tool. 
BYTE ZAP: A MUST utility- Rewrite any 
byte on a disk by loading a sector onto the 
screen for Inspection. Hex/Dec/Ascii dis- 
play optional. Examine bytes via cursor 
control; enter hex, dee or ascli to change. 
Create illegal filenames, restore deleted 
files, change greeting program names, 
repair/protect disks, change DOS, examine 
program files. Clear illustrated Instructions 
show how disk data is stored and how to 
access it. Very educational. 
MOBJ3 ; A disk PACKED with useful music, 
text and hires tricks lor use in your pro- 
grama. A great demo-wrlter program, use- 
ful hl-res utilities and educational, enter- 
taining documentation. 

_- D U ^protected di3A ', 48K mln. ; 
|DU [l Bea#e Bros Tip Book *fi 
D Peeks 9 Pokes Chan. 
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Typefaces 

for Apple Mechanic 

Here are more hl-res fonts for Apple Mecha- 
nic's Xtyper and Hi-Wrlter programs— H6 of 
them at last count, both large and small, all 
proportionally-spaced and posltlonable 
anywhere on either hl-res screen Most are 
fuil»e-charact«rft>nt» many with special 
graphic characters. Each character (from 
"|" to "u") of every font (from "Ace" to "Zoo- 
loo") ts. of course, editable with Apple 
Mechanic's Pont Editor. 
BONUS: Here's BEAO LB-MEND! A unique 
greeting program that displays only the 
catalog file names jroti want on the screen 
(for example, only locked-Appleeoft files, or 
only Binary files) for one-key cursor selec- 
tion. Just hit Return to Run,- Brun or Exec 
the program at the cursor. Many other fea- 
tures— Spaoe-on-Disk, Load/Bload option, 
forward and backward catalog "scrolling^ 
for easy file location, and optional sector- 
number elimination. PLCS the ability to 
swap tilt names in your catalogl 

Unprotected Beagle Bros" Apple 
ftfi AOD Mechanic Disk )S required, to utilize 
JBU "IS type fonts Beagle-Menu w orks 

with ell norms! DOS 3.3 oleics. 
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Flex Text 

70-Column Text Utility 
by Mark Slmonsen 

Flex Text lfl a unique utility that lets you 
print variable-width taxt on Apple's hl-ree 
screens In normal 40-cclumn format, 30- 
column expanded or B6- and 70-oohunn 
condensed characters. Character widths 
may be mixed as you Hie for empnasls^Flex 
Text understands normal Applesoft Basic 
commands, including Home, Inverse, Nor- 
mal Vtab 1-84 and Htab 1 through "TO! It 
also supporte text window pokes and scrol- 
ling so you can program normally, tail with 
the aolllty to add tacit to graphic*, or gra- 
phics to textl You can even run your exist 
lng programs using these features I 
FLUX TBXT IS COMPAITBIJ 
WITH DOS TOOL KTT 1 FOWW 
Enter up to WINE font names In Flex Text's 
bootup program for easy ctrl-command ac- 
cess Upper 6" lovmr aM In any character- 
width without hardware. AH characters 
redennable with a text character editor. 
Toggle between "normal" text screen and 
both hl-res pages. Compatible with Nell 
Konzen's Program line Editor 1 ' andQPLE,- 

Macnine language. Unprutacwd 4SK nil 
Pwuk/Polie criart Included- Condensed 
c>Mj^acter dlnuLsvy requires a monitor 
: uitttead of a cv ) for beat result*. 




Prom 



High-Speed DOS Utility 
by Tom WelaHaar 

ProntoDos 1b FAST, saving you time where it 
counts the most. This comparison with nor- 
mal Apple-DOS speaks for itself— 



nnctiov 

BLOAD HI-RES MAGE 

BSAVE M-flBS MAGE 

LOAD 8&SECT0H PROGRAM . 
SAVE eOflECTOR PROGHAM . 
BLOAD fflT/LAUGuAGE CARD 
TEXT FILES 



, 3-eea. 10-sac. 

,6-bbc. l&sac. 

. 4-sec. l&ssc. 

. EJ«ec. 24-sec. 

. 4-Bec. l&sec. 

. . .{no cofifi&) 




HOBS DISK SPACE: Booting Pronto- 

Dob frees up 16 extra sectors of Disk Space, 
almost a full track. To speed up your Apple, 
lust boot ProntoDos or any disk you have 
updated with ProntoDos, and you re in busi- 
ness You can even create new ProntoDos 
disks with Apple's normal INIT command 
ProntoDos is compatible with ALL com- 
mands and performs normally (but FAST; 
k with almost ALL programs. 

■Machine language. Unprotected, 
leeks a Fries cnart included. All 
normal 3.3 disks, ara updataule 
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10 REM HIRES NUMMH GENERATOR 

20 5EE-5- SCA1E-SEE REM NUMBER-HEIGHT 
10 HGR HOME. POKE 232. 0: POKE 233. 3 ROT=0 
40 FOR A- 766 TO 830: READ B: POKE A, B: NEXT A 
SO N-N-l:N$-ST°$(N):X=°v:Y-0 

POR A=1 TO LEN(N$) HCOIOR=0: DRAW 6 AI 
X V HCOLOR=3 DRAW VA1( MIOSES, A. 1)) 
MX rx X'SIZE+SliE NEXT A GOTO 50 
DATA 20 0, 2J. 0. 27, 0. 31. 0. 35. D. 3V. 0. 44. 
49 52 0, 57. 0. 53, 42. 36. 0, 4°. 38. 0, 53. 
55' 61.0. 53.23. 37.0 

DATA it 38 52. D. 61. 4*. 62. 5. 0, 61. 54, 37. 1. 
0. 53. 38. 0. 54. 37. 60. 46. 0. 53. 39. 53. 62. 5. 
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100 Tip Book Tips on Disk 
by Bert Kersey 

100 programs from Beagle Bros' Up Books 
1, 2, 3 and 4— Fascinating tricks to make 
your Apple do thtjlgs it's never done beforel 
All 100 programsare datable, copyable and 
changeable; and each teaches another fasci- 
nating Apple programming technique. 
Two different charts are Included, 
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» ft C Unprotected ( 32K/46 K ) 
Z. Apple [I Command Chart 






DOS Boss 

Disk Command Editor 

by Bert Kersey & Jack Caasldy 

A classic Apple utility you will ENJOY! 
Rename DOS commands ("Catalog" can be 
"Cat", etc.). PROTECT PROGRAMS; any un- 
authorized save- attempt produces a "Wot 
Cqpyable" massage. Also List- prevention 
and 1-key program-run from catalog. Cus- 
tom catalogs; Change Disk Volume message 
to your title; Omit or alter file codes. Rewrite 
error messages: "£$vntax Error" can be 
renamed "Oopsll" or anything you want! 
Two books included - Fascinating docu- 
mentation and hours of good Apple readlngl 

Bob Boss's change feature* may be 

appended to your program* so that 

anyone using your disks booted or 

not ; format* BOS as YOU daalgned it. 



;j Unprotected disk (32K/4SK1 
AH [j Tns Doe Boss FJook 
" w D Battle Bros Apple "hp Book *2 

1 U Feeke & takes Ch&rt 



BEAGLE BROS DKKS ARE UHL0CKID 

AND UNFHCraCTED. THE MEANS EVERY 

PROGRAM IB tNSFECTABLE, CUOTOMEABLE, IF 

YOU WANT, AND COPYAHLE, GIVING YOU THE 

MOST FOR YOUR SOFTWARE DOLLARS. 

DONT SETTLE FOR LESS. 
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Utility City 

81 Utilities on One Bisk 
by Bert Kersey 

A best-seller since it hit the market, and a 
MUST for your program- development 
library Take a look at the features— 
Liat Tormattar makes properly-spaced » 
Indented listings with page breaks; each 
statement on new line, lf-thens and loops 
called out; a great de-bugger! Ifnrti-Oohamn 
Catalog In any page-width to any printer or 
CRT, Auto-post Bun number and last-used 
Date In programs. Put INVISIBLE working 
commands in your listings. Aooess program 
lines in memory for repair » Illegal altera- 
tion Alphabetize » store Info on disk Run 
any program while another stays intact. 
Renumber to 6663E Bave Inverse, trick and 
tnviaittle fUa unw Convert dec to hex # 
binary, or Integer to FP. Append programs. 
Dump text screen to printer... 
£1 II8TABLE UTILITIES TOTAL! 



'29 



D n Q Unprotected disk {48K mln.) 
|SU D BeagLfl Bros Apple Tip Book »3 
D Peeks 9 Pokes cnsjt 




(not To scale) 



GOTO Your 
Apple Dealer. 

Moat dealers cany our software. If yours 
doesn't, he can have our dlflks In his 
store for you within 8-3 Oaya hy calling 
us or rds favorite software distributor 

Or Order by Phone , 

Vlsa/Maste^ara/co^Srf*^ "* 

lllllnrw 

OH ORDER BIT MAIL- 
RUSH! The disk packages checked below 
plus the free 11x17 Peeks W Pokes Chart: 




OAlphaHot. »39.B0 

□ AMechanlc »BS.B0 

□ Beagle Bag »29.B0 
a DOB Boss . . *S4.00 
O Flex Text . . '29.60 



a Frame-Up . »29.B0 
O ProntoDos . '39.60 
DTlpDisk*l 'B0.00 
D Typefaces. . '80.00 
□ Utility City '29.50 



< Add < 1 ™ Snipping, anjr size o^er. Callfu rnla. add &fc titx 



ITtaA llABTXKQAIU) 

Include Csrfl vtunber 

6- Bxplrstlon Date. 



sag 



431S Sierra Vista, San Diego, Ca 98103 
714-896-6400 

'■.ftPPIZ'" Is *■ [flfflawred trade nw* ot Yea Know-Who. 



i Wal] USshtjclt, jnon^v order or Vlea/irtasterCftrd numbers to 

BBAQLX BBOS. MR. H 
431B SIHHSA VIBEA 
j 8U DIBOO, CA. M10B 

I AU Orders Shipped Immedlatvly. 

' FleaflB add $4.00 for snipping outslds KohU America. 
I OOP orders add *3.00. California, residents, add &% 
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the user for anything, but is listed in Figure 
Three for the curious. 

Upon running Design Plus, you will first 
be asked for the increment. You can enter a 
number or press RETURN for the default 
value of 2. 

After entering the increment, a brief sum- 
mary of the commands and the prompt 
TRESS RETURN TO CONTINUE 1 
appear. When RETURN is pressed, the pro- 
gram starts drawing. 

The commands for Design Plus are easy 
to understand: 

SPACE Begins the "Step Mode", which 
allows you to go through the 
process step- by-step. 

F Calls the Flipper subroutine 

(only from within the Step 
Mode). 

ctrl-C Exits the program. 

All other keys will exit the Step Mode. 
Any key exits the Flipper routine, but if lite 
key is a SPACE the program will immedi- 
ately re-enter the Step Mode (but not the 
flipper routine). RESET exits the program. 



Figure 2 



Variable Value (in hex/dec) Purpose 

DRW $E6/230 Offset for hi-res pages. The contents of 

this location determine which page is 
drawn on by not only DRAW and 
XDRAW, but HPLOT as well. 

Dl $20/32 The value to put in DRW to draw on 

pagel. 

D2 $40/64 The value to place in DRW to draw on 

page 2. 

51 $COS4/-163fl« The location to access to display page 1 . 

52 $COS5/-16299 The location to access to display page 2. 

Figure 3 



8WA:AD54C» 
800D:AD 9» C» 
8M0:C9 7F 
8812:10 07 
1014:EA 
8015:AD55C0 
8018:4C0A8» 
801B:60 



LDA $C«54 
LDA $C000 
CMP $7F 
BPL $801B 
N»P 

LDA$C055 
JMP$800A 
RTS 



Display page 1 . 
Read the keyboard. 
Has a key been pressed? 
Yes; then return 
Make the timing right. 
Display page 2. 
Go thru again. 
Return to BASIC. 



Design Plus 



If Bt * CHRt (8): TEXT : GOTO 34 


21 REH SET PAGE 1 
30 POKE DRN.DS 
41 REH DRAW ON 1 
50 GCSltB 190 

60 RES SHOW PAGE 1 
70 POKE S1,0 
30 REM SET PAGE 2 
90 POKE DR*,B2 
100 60SU8 220 
110 REM DRAW ON 2 
120 eQSUB 190 

130 REM SHOW PAGE 2 
140 POKE S2,0 

150 REH INCREMENT SCALE 
160 60SUB 221 

170 REX READ KEYBOARD 
1S0 60SUB 250: 60TO 30 
190 SCALE* SC 
200 MAN 1 AT 140,96 
210 RETURN 
220 SC - SC + INC 
230 IF SC > 255 - INC THEN SC « 

1 



240 RETURN 

250 KX « PEEK ( - 14384): IF KI « 

160 THEN 270 
260 RETURN 
270 POKE - 16368,0 
2S0 KX » PEEK ( - 16384): IP KI < 

127 THEN 280 
290 IF KI< > 160 THEN POKE - 

16368,0 
300 IF KX " 198 THEN POP I SOTO 

320 
310 RETURN 
320 CALL 32778 
330 60T0 31 

340 REN START PROGRAM 

330 HOKE : PRINT SPC( S) 'SELECT 

A NUMBER (0-235)' 
360 PRINT I PRINT SPC( 15)"DEFA 

ULT - 2* 
370 VTAB l: KTAB 27: INPUT A*; PRINT 

At 
381 PRINT : IF At « " THEN At > 

•2" 
390 INC ■ VAL Ml): IF INC ■ THEN 

340 
400 VTAB 10: PRINT 
410 PRINT SPCI 7! "SPACE ■ ACTIV 

ATE STEP NODE" 



420 PRINT 

430 PRINT SPC( 8)" ESC « EXIT S 

TEP NODE' 
440 PRINT 
430 PRINT SPC( 9)" F * FAST FL 

IP! 1 
460 VTAB 20! HTAB 6 
470 PRINT "PRESS "fl INVERSE ! PRINT 

"<RETURN>"i: NORHAL i PRINT 

1 TO CONTINUE") 
480 SET At 

490 DRH > 230:D1 * 32:D2 > 64 
500 82 * - 16299:S1 • - 16300 

510 ren poke in table 

520 for a * 32768 to 32795: read 
b; poke a,b: next 

530 DATA 1,0,4,0,56,54,45,36,7,0 
540 DATA 173,84,192,173,00,192,2 

01,127,16,7,234,173,85,192,7 

6,10,128,96 
550 REH HI -RES 
560 HSR : H6R2 

570 REH SET SCALE, ROT 
500 SC * l: ROT- 
590 REN SHAPE POINTER 
600 POKE 232,0: POKE 233,128 
610 60T0 30 

620 REH DESIGN PLUS 
630 REH BY NEIL TAYLOR 
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A Shape Table Mini-Editor 

If you haven't got a shape table editor, awl you need to 
make some vector shapes right now .. . try Faster Shapes, a 
mini-eMtor. ft*s short, fast, and easily typed. It also creates 
compact shape definitions, a "must" for faster graphics. 




fry Enrique A. Game/ 

Recently I've become involved with; 
animation— page-flipping , cte. —and found 
execution time to be a very important fac- 
tor. I reduced ray drawing and movement/ 
hjgic routines to a minimum, yet that 
wasn't enough. To make a long story short, 
I discovered I had been using a hi-res shape- 
drawing program which wasted much 
memory space as a tradeoff for convenience 
-of use. 

Whew speed isn't a consideration, the 
"block-scan" shape drawing programs like 
those Which use the lo-res screen are very 
nse&il. Of course, viewing the lo-res 
serpen, later to be translated to hi -res, gives 
a distorted image. Sfou may end up with a 
: shape table; two flr three times longer (thus 
slower) than necessary iii certain circum- 
stances. 

The best method, then, is to follow the 
directions on page 92 of the Programming 
.Reference Manual with graph paper in 
hand. This is exactly what Fve done in the 
two-part program below. I may not go out 
much, but I haven't seen any other assem- 
bly language program that is quite like this. 
My entry : prompts are patterned after the 



"$hape Creation Program" on page 216 of 
the Apple II UserV Guide (which; has: a bug 
in it). 

To enter and save the assembly language 
program in the usual way j 
S3 A VS A , L . SH ApES , A$3 00 , I$BB " 

After the Applesoft section of the pro i 
gram BLQADs the machine code, respond 
to the first question (ENTER MRECTION 
VECTOR = ) wifh a U. R, ■ D, tit L . The sec- 
ond question requires a ¥/N answer. 
Remember that two " U,N" moves in a row 
are not allowed. An "F" response to both 
questions means E)ONE which sends you 
into the edit motde. From the graphic dis- 
play on the upper half of the screen it's easy 
to find and correct any mistakes which 
might have been made during entry. 

Of course, many possible enhancejnents 
could be added, , mostly within the Apple- 
soft half. Vou eeuld provide for a greater 
number of shapes or for more than the 256 
vector possible. Some nicer edging fea- 
tures could also be added. 

I believe the assembly' language half ha? 
been streamlined to the MAX . . . there's a 
challenge if ever 1 heard one! 



P.O. Box 44549, Tacoma, WA 98444 



CORE I, no. 1 



Page 35 



A.L. Shapes 



1000 wiifiniitiiitiiiiitntinmi* 

1010 * SHAPE TABLE HAKER mmmm* 

1020 * ENRIQUE A. 5AHEZ * 7/1982 «*** 

1030 * BSAVE AS 'A.L. SHAPES' »»»» 

1040 *iliiliilliiilitlllllHiUliiill* 

me 

im ,m %m 

1080 ,TF A.L. SHAPES 



00 

10 HDLDIT M *FC 

20 SOURCE ,£8 *FD 

30 OBJECT .EG 1FE 

40 COUNTER .ED IFB 

50 * 

40 * CALCULATE BYTES ****** 

7 g | 

60 CALCULATE. BYTES 

90 LBA *0 

00 STA SOURCE OFFSET 

If STA OBJECT OFFSET 

20 STA MBIT E.Q.R.'ED 

30 LBA m 

40 STA COUNTER ABC'S 

50 * 



40 GO 

70 

80 

90 

it 

10 

20 

30 

40 

50 

60 

70 

80 

90 

00 

10 

20 ,1 

30 

40 



50 .2 
if 

70 
80 
90 

m »-- 

1510 .4 

1520 

1530 

1540 

1550 .3 

1560 

1570 *-- 

1580 .5 

1590 

1600 

1610 

1620 

1630 

1640 *-- 

1650 .6 

1660 

1670 

1680 



LBX SOURCE 

LBA $4000, X 

CMP »$FF 

BES .99 

CMP 10 

BES .4 

CMP H4 

BCS .2 

JSR ST0RE.L06IC 

CPX ttC 

BN£ .1 

LBX OBJECT 

STA $7004,)! 

LBV 10 

STY HOLBIT 

ffl OBJECT 

JSR .8 

JMP GO 



LBX COONTER 
CPK IfC 
BNE .3 
JSR .39 
JNP GO 



LBX COUNTER 
CPX m 

BES .5 
BCS .39 
JSR .7 
JNP SO 



LBX SOURCE 

INK 

LBA *600M 

CMP *4 

BCS ,39 

JNP .3 



LBA HOLBIT 
LBX OBJECT 
STA $7004, X 
STS 



.7 



690 

700 

710 .B 

720 .9 

730 

740 

750 

760 . 18 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 



.17 

*— 
.39 



JSR STORE. L06IC 
INC SOURCE 
m COUNTER 
LBX COUNTER 
CPX ItD 
BNE .17 
LBX ItA 
SIX COUNTER 
RTS 



JSR .6 
LBA #0 
STA HOLD IT 
INC OBJECT 
JSR . 18 
JMP GO 



,99 



900 
910 



920 TOTALLY. DONE 
930 RTS 

940 * 

950 *:::::::::::: 

940 * 

970 STORE.LOSIC 
980 
990 
2000 



JSR .6 

BES TOTALLY. DONE 

BR 

LBA 40 

STA *7004,X 



2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
211* 
2120 
2130 
2140 
2150 
2f60 
2170 
2180 



LBX COONTER 
CPX m 

.2 

.1 

.3 



.2 



.3 



BE8 

BCS 

JNP 

ASL 

ASL 

ASL 

ASL 

ASL 

ASL 

E8R HOLBIT 

STA HOLD IT 

RTS 



IT'S fi 
IT'S C 
IT'S A 



ARRDtf SHAPE TABLE ************* 

.HS 020006000C003C0C 
■HS 1SB636003C0C15D6 
.HS 170D0500 



Jt 


t 


:-+ 


*-: 


X 


*■: 


4— 


i 


^ 


>+ 


;-•■ 


y* 


+-: 


-*-: 


y* 


-K 


± 


+■: 


*• 


* 


■* 


>+ 


>* 


>* 


■£ 


■K 


:-*■ 


+■: 


± 


X 


4 


1 


— 


>!■ 


>+ 


>+ 


¥ 


*i 


5-f 


*-E 


* 


¥ 


i- 


+- 


— 


n- 


*-* 


:■* 


+ 


Jt 


>t 


+-: 


* 


'4 


4- 


i- 


-¥ 


>*- 


fc+ 


>+ 


* 


£ 


?+ 


■#-: 


* 


*- 


4- 


* 


— fr 


>+ 


>+ 


>+ 


¥ 


* 


V* 


t. 


f. 


*" 


* 


t 


—1- 


>+ 


:-* 


>+ 


+ 


X 


** 


* 


*t 


*- 


i 


i 


— 


:■* 


>* 


:■* 


* 


fc+ 


+-; 


£ 


*£ 


-** 


I 


-fr 


— * 


:-* 


Hh 


>+ 


¥ 


>+ 


+*: 


* 


**-: 


■*- 


i 


™p. 


:-+ 


>+ 


>-* 


>+ 



Screen dump showing direction vectors 
lor a miscellaneous shape. 



Faster Shapes 

10 HONE : VTAB 10 

20 PRINT 'FASTER SHAPES BY ENRIQ 

UE A. SftfCr 
30 Dt -- CHR$ (4): REN CTRL D 
40 PRINT BfBLMD A.L. SHAPES" 
50 DIN CI(255),UH255),LY(2H> 
60 X = 2:Y = - 8 
70 POKE 232,167! POKE 233,3 
80 POKE 28672,2: POKE 28673,0: 

28674,4: POKE 29675,0 
90 REK ZERO FLAG 
100 ZF -- 
110 HSR : HCOLOR= 3: SCAL£= 1: 



POKE 



HOME 



120 REN 
ENTRY 



130 
140 



150 
160 



170 



190 
200 

210 



220 



FOR CN « TO 255 
VTAB 22: CALL - 958: VTAB 2 
3: INVERSE : PRINT "F,F TO 8 
UIT 1 : NORMAL 
VTAB 22 

PRINT "DIRECTION VECTOR ffC 
N M" ? "!: GET At: PRINT A 
I 

CALL - 868: PRINT 'PLOT OR 
NOT? lY/KJ'i: SET Bt: PRINT 
II 
180 C*(CN) ~- At 
SOSOB 730 

IF (XX > AND XX < 10) THEN 
ZF ■ 0: 60TO 230 
IF (XX = AND IF 

PRINT CHR* (7): 
21: INVERSE : PRINT "YOU CAN 

NOT ENTER U,N": NORMAL : GOTO 
150 

IF XX = THEN ZF = 1: GOTO 
260 
IF XX = 30 THEN GOTO 150 



t B* 



1} THEN 
HOME : VTAB 



230 



Hex Dump for 
A.L. Shapes 



0300- A9 
0308- A9 
0310- 60 
0318- 28 
0320- E0 
0328- 70 
0330- 67 
0338- 0C 
0340- 03 
0348- 2D 
0350- FD 
0358- ID 
0360- 9D 
0368- Ffl 
0370- 04 
0378- 03 
0380- 7! 
0388- F0 
0390- 60 
0398- 03 
03A0- 0A 
03A8- 00 
03B0- D6 
03B8- 0B 



00 85 
0A 85 
C9 FF 
C9 04 
0C D0 
A0 00 

03 4C 
B0 0E 
A6 FB 
20 64 
E8 BD 
4C 49 

04 70 
E6 FB 
A2 0A 
A9 00 
03 4C 
06 E8 
A6 FB 
4C A2 
0A 45 
06 00 
36 00 

05 00 



FB 85 
FB M 
F0 70 
80 18 
0B A6 

84 FC 
0C 03 
20 76 
E0 08 
03 « 
00 60 
03 A5 
60 20 
A6FB 
86 FB 

85 FC 
0C 03 
A9 00 
E0 0B 
03 0A 
FC 85 
0C 00 
3C 0C 



FE 85 FC 
FD BB 00 
C9 00 F0 
20 91 03 
FE 9B 04 
E6 FE 20 
A6 FB E0 
03 4C 0C 
F0 08 B0 
00 03 A6 
C9 04 B0 
FC A6 FE 
91 03 E6 
E0 0B D0 
40 20 5C 
E6 FE 
20 5C 03 
90 04 70 
F0 08 80 
0A 0A 0A 
FC 60 02 
3C 0C 15 
15 B6 17 



20 
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240 IF Kit = 20 THEN PRINT CH8* 
UK INVEftSE : PRINT CHR1 ! 
7): INVERSE : PRINT "NOT VftL 
ID mum - USE F.F TO QUIT 
": NORMAL : GOTO 15* 

230 IF U * 10 THEN TT = CN: SOTO 
34* 

260 POKE (24574 k CH»,H 

270 Y = Y t 1* 

288 IF ¥ > 95 THEN V « 2:)( ■ X + 

290 tltCX) * titftOft ■ ¥ 

300 DRAM SH AT 1,1 

310 HONE 

328 NEXT CN 

330 REN 

EDIT 

340 HONE 

350 VTAB 22 

340 PRINT " CMNBE WHICH 1 -" ; TTS 

" VECTOR (0=E«D) "SI INPUT C 

N 
370 IF CN = THEN 650 
380 IF CH > TT THEN HONE ! VTAB 

21: INVERSE i PRINT "VECTOR" 

iCN!" DOES NOT HIST": NORMAL 

: 60TO 358 
390 CN = CN - 1 
400 PK * PEEK 124576 + CN) 
410 IF m < 4 THEN SH « 1: ROT= 

16 * Pit; SOTO 430 
428 SH = 2: ROT= 16 * IPK - 4) 
438 FOR TC * TO 3 
448 FOR TH = 8 TO 150: NEXT TM 
450 XDRAN SH AT LNflD.LVtCK) 
460 FOR T« = 8 TO 150: NEXT TH 



470 DRAW SH AT UUCN) ,LV(CN) 

480 NEXT TC 

490 REN 

CHANGE VECTOR 



500 
510 

520 
530 



540 



578 
580 
590 
600 



610 
420 
630 
648 



640 

470 
680 



HONE 

VTAB 23! INVERSE : PRINT 'X, 

X TO SUIT": NORMAL 

VTAB 22 

PRINT "ENTER DIRECTION VECTO 

r *"iCN * r ? "i: set a$: print 

At 

PRINT "PLOT Oft NOT? iim'H 
GET Bi: PRINT » 
550 CKCN) - M + B* 
548 XDRA« SH AT U(CN},LY(CN) 

SOSUB 730 

HOME 

VTAB 21 

IF m = AND ! PEEK (24576 
t (CN - 1)1 « OR PEEK (2 

4576 * (CN t 1}) = 0)) THEN 
FLASH : PRINT "ALERT:";: INVERSE 

: PRINT • ¥OU HAVE CDNSECliTI 

VE ZEROES!': NORMAL 

POKE (24576 t CN),XX 

DRAM SH AT LK(CN),LY(CK) 

SOTO 350 

REM 

DISPLAY SHAPE 
658 CALL 748: PRINT "¥0UR TABLE 

STARTS AT *7000 ... DtJOV!" 

PRINT : INPUT "DO YOU KANT T 

SEE IT (Y/NI7 B iAt 

IF At = l N" THEN 710 

REM $7000=28672 



690 HSR : POKE 232,8: POKE 233,1 
12 

DRAW 1 AT 140,00 
END 
REM 
INTERPRET VECTDR 
730 IF Him = "UN" THEN XX = 
: ROT= 0:SH * l: RETURN 
IF CIO) = "RN" THEN XX 
: ROT= 16ISH » l: RETURN 
IF CtlCNI = "DN" THEN XX 
: ROT= 32ISH = 1: RETURN 
IF CtlCN} = "LN" THEN XX 
: ROT= 48: SN = l: RETURN 
IF CI (CM " "UY" THEN XX 
: ROT= 0:SH = 2: RETURN 
IF CtlCN) « "RY" THEN XX 
: ROT= 16:SH = 2: RETURN 
IF Ct(CN) « -W THEN XX « 6 
: ROT= 32: SH = 2: RETURN 
IF CtlCN) « "LY" THEN XX = 7 
: ROT= 48:SH = 2: RETURN 
IF CtlCN) = "FF" THEN POKE 
(24576 * CN),255:XX = 10: RETURN 
IF Ct(CN) = "XX" THEN XX = 2 
0: RETURN 

PRINT CHRt (7): HOME I VTAB 
21: INVERSE : PRINT "WHAT DI 
D YOU SAY?": NORMAL :XX = 30 
: RETURN 



708 
710 
720 



740 
750 
760 
778 
780 
790 
888 
818 
828 
838 



5 



940 REM 
COPYRISHT 1983 

850 REN 

SOFTKEY PUBLISHING 



REPLAY 

APPLE PROGRAM COPY SYSTEM 




DISK FORMATING IRRELEVANT 



COPIES TOTAL LOAD 
PROGRAMS 

60 PAGE MANUAL INCLUDED 
COPY IN 20 SECONDS 
RESTART IN JUST 10 SECONDS 
CAN ANALYZE PROGRAMS 
AND DISKS 

WILL PACK AND CONDENSE 
COPIED PROGRAMS TO 
BRUNNABLE DOS FILES 
NO LANGUAGE CARD NEEDED 
FOR PACKED FILES 



s~\ 



TO OROER: 

Writ£ or call 

Taxes Rench And Shoreline Systems 
5712 Mono- Rood. Box SO 
Austin. TX 78723 

(51S]9S6-4537 



w 



COST- 

£1 29.95 fully Assembled Card 

Plus $5.00 Shipping end Handing 

Outside U.S add S5. 00 Air Parcel Post 

[Texas residents add 5% sales tax) 

VISAMASTERCARD WELCOME! 



REPLAY is an interface card that plugs into 
any Apple* slot, REPLAY does not copy a disk, 
rather it copies a program executing in 
memory. The original disk formating is not 
important, 

NOW game players can save a game at ANY 
LEVEL and QUICKLY restart it with the 
REPLAY card. 

The copied program does not need the 
REPLAY card to execute. Two copied 
programs can be put on one DOS 3.3 disk. 
That disk is ALL that is needed to run the 
program. 

With the packing program supplied, the copied 
program can be packed and Brunned from 
DOS 3.3 without a language card. Utilities and 
documentation are supplied with the system. 
Tutorials are given on multi-access disk 
analysis, copying and packing. 

'ApplE is a registered trademark for Apple Co^uter, Inc 
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The two major advantages of text and )o-res graphics are 
their simple commands and the relatively faster graphic dis- 
play capahility. Entire areas can be colored with simple 
PRINT or PLOT (VLIN, HL1N) commands. Unfortunately; 
detail (resolution) is exchanged for speed and ease of use. Hi- 
res shapes, especially complex ones, arc both slow and labori- 
ous using H PLOTS or shape tables. Programs that require 
detailed but complex shapes, yet have to be fast (like arcade 
games) can only be created with a great deal of programming 
knowledge beyond BASIC languages. When talking about 
fast graphics, one usually is talking about "machine speed", 
and that usually means a program written in machine lan- 
guage. 

Yet there is a way to combine the speed of text and lo-res 
with the detail of hi-res without knowing a bit of machine or 
assembly language. But you have to" use routines that are 
already written in machine language, usually by an experi- 
enced assembly language programmer, preferably one well- 
versed in the eccentricities of hi-res page formatting. 

One of the best methods is to use a program called a "char- 
acter generator." The name is misleading. It can be used to 
place characters on the hi-res image area. But it can also be 
used to place other images there. An example of a hi-res char- 
acter generator is Apple's Tool Kit. There arc many such pro- 
grams now available. With it, a BASIC programmer can 
create arcade quality games and demos on the hi-res page by 



using simple text PRINT statements. 

CORE presents its own character generator: Quick Draw, 
by Robb Canfield. 

Unlike other generators that use only 64 or 128 characters 
per set, programme re who use Robb's Quick Draw can print 
the entire set of 256 characters by specifying INVERSE, 
FLASH, or NORMAL. Control and lowercase sections can 
also be used. With his character editor, all 256 characters can 
be filled with your own assortment of shapes. And by specify- 
ing the size of the shape (how many characters tall and wide it 
is), it is easy to print a huge shape (let's say one that's six char- 
acters wide and five tall) with just a simple: 

PRINT "A" 
instead of writing: 
PRINT "ABCDEF" 
PRINT "GHUKL" 
PRINT "MNOP" 
PRINT "STUVWX" 

Character generators make it easy for a BASIC programmer 
to write fast and detailed graphic presentations because it 
becomes as easy as a simple PRINT 

(We encourage you to use this program for your own non- 
commercial software. And if you've written one that you feci 
is worth marketing commercially, submit it to Softkey for pub- 
lication in CORE and on disk.) 
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Arcade* QuaCity; graphics 

by Robb Canf ield 



REQUIREMENTS: 
48K Apple II (or Franklin Ace 1000) 
One disk drive. 

Games seem to have universal appeal. 
From the toddlers to the elderly, all seem to 
enjoy becoming a hero in a dungeon or a 
space pilot in the remoteness of the uni- 
verse. Arcade games are the most popular 
with their high-speed animatiori and color- 
ful creatures. Unfortunately, the techniques 
of displaying shapes quickly and easily 
have not been revealed to most program- 
mers. 

Finding a way to quickly draw and move 
shapes is the biggest problem you will 
encounter when designing a game. In this 
article, I will concentrate oh drawing 
shapes easily and quickly. So I introduce 
my Quick Draw 1.0. a Hi- Res Character 
Generator (HCG). 

tine method of displaying shapes on the 
hi-res screen is to use shape tables or an 
equivalent. Shape tables use a vector 
approach to draw a shape on the screen. 
Vectors show which direction to move and 
whether to plot a point or not. This method 
has many benefits. Enlarging a shape 
(SCALE) and rotating a shape (ROT) are 
easily done. Even changing the color 
becomes a simple exercise. 

Another advantage of shape tables is their 
ability to be placed anywhere on the hi-res 



screen. Since the shape is stored as vectors, 
it really makes no difference where the 
shape is drawn. The disadvantage of shape 
tables is that tbey arc very, very slow. 

An HCG usually docs not handle such 
exotic functions as ROTatc and SCALE, 
but shapes are drawn very quickly. Shapes 
for HCG are not stored as vectors. Instead, 
they arc stored as bytes of pure data. A fair 
analogy would be to compare shape tables 
to walking from one place to another. There 
are many routes one could choose to get 
there , but it is time-consuming. A HCG, in 
comparison, would be our futuristic tele- 
porter that instantly transports us from 
point A to point B. We see less, but get there 
quicker. 

Another limiting feature about a HCG is 
its inability to draw an object anywhere on 
the hi-res screen. As the HCG stands now, it 
can only display shapes on 24 rows and 40 
columns, much like the text screen. And 
that is why it is so easy to use. 

I have developed QuickDraw 1.0 so that 
Applesoft, Integer, and machine language 
can call it simply by PRINTing a character. 
However, I have not provided any scroll 
routines for the hi-res screen. This means 
that once you are at the bottom of the 
screen, your shapes will overwrite each 
other (so be very careful). 



Putting the HCG 
into Memory 

i) Enter the monitor. 
CALL -151 

2) Enter the program for Quick Draw 1 .0. 
Remember to press the RETURN key at the 
end of every line. 

3) Change the Applesoft program pointer 
to $6001. 

67:01 60 
6000:00 00 00 

4) Return to BASIC. 
3D0G 

5) Save the HCG. 

BSAVE QUICK DRAW;A$800,L$89 

6) Make sure everything is okay. 
NEW 

7) Type the BASIC program, MAKE 
TABLES. Then run it. This program will 
automatically create and save all the tables 
forQuickDraw 1.0. 

The Editor 

As I mentioned earlier, shapes for a HCG 
arc stored as bytes in memory. These bytes 
are moved from the "Character Set" to the 
hi-res screen when needed. A "character'' 
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HI -RES CHARACTER 
GENERATOR 
VER XII 
QUICK DRAW t.0 



is 7 pixels across and 8 pixels high , A shape 
can be any number of these characters 
placed together. 

1 have provided an editor for drawing and 
manipulating shapes easily. 
Commands featured arc: 

Inverse 

Change high bit 

Co ntinuou s d ra w/u nd ra w 

Some other ordinary commands. 

To use the editor, two machine language 
programs must be entered, along with the 
BASIC program and the Quick Draw edi- 
tor's "Character Set". 

WARNING: There is no DOS error- 
handling, so if a DOS error occurs you will 
exit the program. If this happens press 
RESET and type RUN. The "Character 
Set" in memory will be unharmed , but any 
shape you were editing will have been lost. 

Quick Draw 

iiff 

1010 

1120 
1131 
1140 

1050 

1171 

1080 

10*0 
us* 
im 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1196 
1200 
1210 
1220 
1230 
1240 
12S0 
1260 
1270 
1280 
1290 
1300 
1310 
1320 



t 
t 
t 

ft 
* 
* 

» 
ft 
ft 
« 
f 
t 
fttfftft«»ft*tftft«ftft»*m«*ft*ft 



BV 
ROBS S. CANFIELD 
COPYRIGHT 1982 
SOFTKEY PUSH SHIMS 



»mtft4««»mftfmtmmft*fft 

THIS VERSION DOES NOT WRITE 
TO THE TEKT SCREEN, HAS TEXT 
WINDOW AND ADVANCES CH AND 
EV WHEN NECESSARY. 

106 - HORIZONTAL BLOCKS (1) 
«7 - VERTICAL BLOCKS (1) 
*04,t05 - LOCATION OF 
CHARACTER SET 

THIS VERSION IS LOCATED AT 
*803 FOR THE EDITOR. 

fftftifttft«tft*tftft»ift«ftitftffft*tt» 



1330 

1340 

1330 t 

1360 t LOCATIONS USED IN THE PROGRAN 

1370 ft 

13S0 

1390 WNDHDTH .EB 121 

1400 HND8TK ,EQ $23 

1410 

1420 INV.FLAS .EG 432 

1430 

1440 

1450 YSAVE .EB ID0 

1460 KSAVE .EG *Di 

1470 

1480 ACCOM .EG $D2 



WIDTH OF TEXT WINDOW 
BOTTOM OF TEXT WINDOW 

THE INVERSE FLAG. USED FOR FLASH AND INVERSE 



1490 VERTSAVE ,E8 «D3 
1500 CHARLOC .EC *4 
1510 SPOT .Eft *D4»fD5 
1520 CV .ED *25 
1530 HIRES, PASS ,ES *E6 



1540 CH 

1550 H0R22 

1560 TEHP 

1570 HORZ 

1580 VERT 

1590 VERT2 

1600 CHAR 

1610 

1620 

1630 

1640 * 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 



.Eft *24 

.EB t8 

.EG *9 

.ES U 

.EG *7 

,E& *0 

.EG m 

.OR *803 

.TF GUICK DRAH.OBJ 



YREG SAVE AREA 
XREG SAVE AREA 

ACCUMULATOR SAVE 

VERTICAL POSITION SAVE AREA 

LOCATION OF CHARACTER SET 1*4 * (51 

LOCATION TO PLACE CHARACTER ON HI -RES SCREEN 

CURSOR VERTICAL POSITION 

PABE WE ARE ON II20-PA8E 1, I40-PA8E 2) 

CURSOR HORIZONTAL POSITION 

BLOCKS HORIZONTALLY 

TEMPORARY STORAGE FDR ANYTHING 

NUMBER OF VERTICAL LINES TO PRINT 

NUMBER OF LINES IN BLOCK 

LINES TO PRINT (8 ft VERT) 

CHARACTER WE ARE ON (USED FOR BLOCK SIZES) 



SET FOR HOOK UP WITH PRINT 



STA ACCUH SAVE ALL THE REGISTERS 

STK XSAVE 

STY YSAVE 

LDX HORZ SAVE BLOCK SIZE 

STX H0R7.2 

LDK VERT 

LDY VERTICAL, I 

STY VERT2 
1760 CKARTBL1 CMP ItSD 
1770 &E0 CR 

1780 AND INV.FLAG USE FLASH/INVERSE NODES 
1790 DRAW TAY 
1800 STY CHAR 
1S10 CLC 

1820 LDA CHRLOW,Y 8ET LOW BYTE OFFSET 
1830 ADC CHARLOC AND ADD TO CHARLOC 
1840 STA GEM 
1850 LDA CHRHI6.Y ADD ON HI8H BYTE 
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Mi 


ADC CHARL0C+ 


1 


1878 


STA 6EU2 




1898 


LDX CV 


FIND VERTICAL POSITION ON HI-RES SCREEN 


1890 


LDY VERTICAL,! 


mt 


STY VERTSflVE 




1918 


in ms 


RESET LOOP FOR CHARACTER 


1928 PUTCFMR 


CPY 1192 


OFF SCREEN BOTTOM/TOP 


1931 


86E SKIP 


YES SO DON'T DRAM 


1941 


LDA TABLELON,Y SET ACTUAL LOCATION TO PUT CHARACTER 


l«i 


STA SPOT 




1968 


LDA TABLEHI6,Y 


1978 


CLC 




1988 


ADC HIRE5.PA6E 


1998 


STA SPOT+! 




2888 


LDYCH 


GET HORIZONTAL POSITION 


2818 GET 


LDA tFFFF.X 


GET CHARACTER 


2828 


STA <SPOT),Y 




2838 


STA (SPOT1.Y 




2848 SKIP 


INC VERTSAVE GET NEXT LINE ON SCREEN 


2858 


LAY VERTSAVE 




2868 


INK 


DONE? 


2878 


CPX VERT2 




2888 


BNE PUTCKAR 


DONE? NO SO CONTINUE 


2898 


DEC H0RZ2 




2188 


DEB GOODBYE 




2118 


LDV CH 




2128 


1NY 




2138 


CPV KNDMDTH 




2148 


BEfl CR 




2158 


STY CH 




2168 


CLC 




2178 


LDA VERT 


INCRENENT CHARACTERS 


2188 


ADC CHAR 




2198 


W DRAW 




2288 SGODBYE 


INC CH 


ADVANCE ROUTINE 


2218 


LDYCH 




2228 


CPY HNDNDTH 




2238 


8CC GOQDBYE2 




2248 Cft 


LDY 1*88 


CARRIAGE RETURN CONTROLLER 


2258 


STY CH 




2268 


INC CV 




2278 


LDYCV 


^ jSfeifetr— . 


2288 


CPY NNDBTN 


^^blft^M^fe 


2298 


BCC &0DDBYE2 


j^tMmmP^ 


2388 


DEC CV 


■ ,^lMmulM!!lluuMiV 19 


2318 S0ODBVE2 LDA CHAR 


j^ram|ii^^^^^^lli l 


2328 


LDX XSAVE 


§J«* -3y| irjPV^'llp Tali. "P% 


2338 


LDV YSAVE 


vat*. /» 


2348 


RTS 





Steps for Entering 
the Editor 

1) Reset Applesoft to its original loca- 
tion. 

FP 

2) Type the BASIC program, QD.EDI- 
TOR, and SAVE it. 

SAVE QD.EDITOR 

3) Enter the monitor and type the first 
machine language program. 
QD.EDITOR.UTIL.OBJ, and save it. 
BSAVE QD.EDITOR.UTIL.OBJ, 
A$30ft,L$8A 

4) Type the second program, GET. OBJ, 
and save it also. 

BSAVE GET.OBJ,A$17«0, L$A3 

5) Type the shapes for the cursor into 
memory and save it. 

BSAVE SHAPES,A$3»e,L$ll 

6) Enter the editor "Character Set" and 
save it. 

BSAVE EDITOR.SET,A$D««,L $FF 

7) Return to BASIC. 

8) Type in the BASIC program, MAKE 
START, and RUN it. This program creates 
a text file that will load all the files neces- 
sary for the Quick Draw editor to work. 

9) To ran the editor, EXEC the file 
START. 

EXEC START 

When the editor is up and running, you 
will be asked to select the "Horizontal 
Block Size" and the "Vertical Block Size". 
Block sizes are measured by how many 
"Characters" wide or tall the shape will be. 
A shape is normally the size of one charac- 
ter, but if you set the block size to 3 charac- 
ters by 2 characters then the shape consists 
of 6 characters. That's 21 pixels horizon- 
tally and 16 pixels vertically. The default 
answer (if you press RETURN Instead of a 
number) to both the "Horizontal Block 
Size" and "Vertical Block Size" is 1. The 
maximum size of any block is 7 characters 
across and 4 high. 

After that you will be asked whether you 
want to create a shape on a white back- 
ground instead of a black one. The default 
answer is "NO" (selecting a black back- 
ground). 

The final question asked is whether 
sound should be used. I use the Apple's bell 
occasionally. If this sound is annoying, it 
can be disabled by typing "N". The default 
answer is "YES". 

To Create Shapes 

The first thing you should notice is a 
large box in the center of the screen. This is 
your Editing Box. Above and to the right of 
it is the Block Map, consisting of one or 

continued on page 44 



P.O. Box 44549, Tacoma, WA 98444 



CORE I, no. 1 



Page 41 



Make Tables 



PEEK 



10 m 

MAKE TABLES 

20 IF PEEK (183) = 1 AND 
(104) = 64 THEN 40 
POKE 113,1! POKE 104,64: POKE 
16384,0: PRINT CHS* <4)"RUN 
HAKE TABLES" 
HME 

VTAB 2: HTAB 6 
PRINT "HAKING VERTICAL OFFSET 

TABLE* 
FOR V = TO 23 
POKE 2188 t y,y * B 
VTAB 12: HTAB 10 

print v " 

NEXT 
HOKE 

VTAB 2: HTAB 5 

PRINT "BAKING CHARACTER OFFS 
ET TABLE" 
FOR V = TO 255 
POKE 2212 + Y,Y # 8 - INT ( 
Y * 8 / 256J # 256 
POKE 2468 + y,y t 8 / 256 
VTAB 12: HTAB 10 
PRINT Y" " 
NEXT 
HME 

VTAB 2: HTAB 8: PRINT "HAKIN 
6 HI-RES LINE TABLE' 
DEF FN MSD(ft) = INT !<A / 
8 - INT (A / 9>) * 8 t .05) 
* S8N (A / 9) 



30 



40 
50 
60 

70 

80 

90 

100 

110 

120 

130 

140 

150 
160 

170 
180 

m 

200 
210 
220 

230 



240 yL = 2724IYH * VL t ffi 

250 FOR V < TO 191 

260 A * FN ftOD(Y) 

270 B ' FN HOD<Y / 8) 

280 C * INT IT / 64) 

290 YA <= A t 1024 + B * 128 + C * 

40 
300 POKE YH * V,YA / 256 
310 POKE YL ♦ Y,YA - INT (YA / 

256) * 256 
320 VTAB 12: HTAB 10: PRINT Y" 

330 NEXT 

340 PRINT CHR* (4)'B8AVE TABLES 

,«B8C,L*393' 
350 TEXT 



$9} 

$4="' 



=iimiMiiiiiiiiiiHiii? % 





$101 



$2e f 



Make Start (Step Eight). 

10 HONE 

20 D1 = CHS* (4) 

30 PRINT M'NONCIO" 

40 PRINT M'OPEN START" 

50 PRINT DTDELETE START" 

40 PRINT M'OPEN START" 

70 PRINT M'WITE START" 



'I?H: : * ; "> 
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Confimands for Quick Draw 



' : ::;;;?V :: ' : :':::: ::: UP'--- 
&;•$:■' : : tmT/ : RttiHT 



$et. the high bit! 
Clear the high hit. 



' etrl T . ;* " Inverse shape, f , ; ■;; .' ■■ J 

ctri E ." : ; : Flip high bit f&reacb^mfeht. 

etrTP B&veflr toadach^tifcdte'set, 

Wl i$ Clear entire eluifatter set, 

cirl X ' ' ' Exit the editor. ' ■ • : ' 

G : ,<•**¥ Aaraeterj^ow. Character Set. 

P Put character into Character Set. 



ESC' 



Select a new felocksfe. 1 

Erase character. 2: 

Exit the abwe «ptf<«is; , '£ ■ 



Continuous Plot mode. 
Continuous Erase m«rie. 
Special Reverse mode.; 



80 PRINT 'POKE 103,l:POK£' 104,96 

IPDKE 24576,0" 
90 PRINT 'NEK' 

100 PRINT "BLOAD QUICK BRAN.OBJ" 
110 PRINT "BLOAD TABLES" 
120 PRINT "BLOAD flD.EDITOR.EJTIL. 

OBJ' 

130 PRINT "BLOAD SET. OBJ' 
140 PRINT "BLOAD EDITQR,SET,A*D0 

0" 
150 PRINT "BLOAD SHAPES' 
160 PRINT "RUN M. EDITOR' 
170 PRINT M'CLOSE' 
180 PRINT Dt'NOftOHCIO* 



Get. Obj (Step Four)_ 

1700- A4 0B A6 00 86 FE 
1708- 18 08 29 7F A6 FD 
1710- B0 0D CA 4A CA 10 
1718- FE 86 00 A2 01 D0 
1720- 07 20 99 17 4A 85 
1728- 11 A2 00 20 8D 17 
1730- A2 06 A9 00 20 0! 
1738- 4F 17 A2 03 20 88 
1740- 03 A2 06 A9 00 20 
1748- 28 08 30 03 A2 00 
1750- 03 20 SB 17 A0 03 



B9 00 
E0 08 

FC A6 
02 A2 
0S 80 
A0 03 
F6 4C 
17 A0 
01 FA 
2C A2 
A2 0E 
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Shapes (Step Hve)^ 

0300- 02 00 it m a 00 23 20 

8308- 35 36 3F 27 04 08 35 27 

tm- 00 



F— Character Set Being Edited 
G— QD.Editor (Applesoft) 



/ 



/ 








(0K)$00 
4096 


Jext 1™ 
Jext 2__ 


(4K) $10 
8192 


" 


** (8K) $20 
12288 


a 
- r _ 


(12K)$30 
16384 


(16K)$40 

20480 


— as ™ 

01 

™ i — 
_ a 

en 

"• » — 
& 

V * wm 

- £ — 


(20K)$50 
24576 


(24K)$60 
28672 


■*■ ^™ 


(28K)$70 
32768 


:#E 


(32K)$80 
36864 


rlE 


(36K)$90 
40960 


- o — 


(40K)$A0 
45056 


(44K)$B0 
49152 


(48K)$C0 






Block Map 



.{b]_QD. Editor. Util.Obj tsm 



Three). 



1311- A4 8B ft9 00 19 FF 17 
#318- 38 D0 FA 60 A4 0B B9 FF 
#328- 17 91 1ft 88 00 F8 41 A4 
8323- 0B Bl 1ft 9? FF 17 88 00 
#338- F8 60 ft9 0E 3D 3F 03 ft9 
0338- 00 02 0S A8 00 SB 00 0£ 
8340- 88 00 FA Cft F8 05 EE 3F 
0348- 03 10 F0 60 A4 0B B9 00 



C —Quick Draw. Obj_ 



8803- 
#808- 
0810- 
0813- 
8328- 
#828- 
0830- 
0836- 



85 02 86 Bl 84 
00 A4 06 86 08 A6 07 K 
8C 08 84 08 C9 8D F8 5F 
25 32 A8 84 01 13 B9 A4 
08 65 04 80 4B 08 B9 A4 
89 65 05 BD 4C 88 A6 25 
BC 8C 88 84 D3 A2 00 C0 
C0 B0 16 B9 A4 0ft 85 B4 



0840- B9 64 08 IS 65 E6 85 D5 

_ Editor. Set (step six) 



1758- A9 

1760- 18 

1768- 88 

1778- 49 

1778- A6 

1780- 85 

1788- 1C 

1798- A5 

1798- F4 

17A0- ft4 



00 20 81 F6 
A5 80 69 84 

Cft D8 B5 28 
04 C5 02 90 
83 86 01 C8 
60 85 01 38 

85 00 80 EF 

01 A0 00 ft6 

86 09 34 0A 
8A 60 



28 9E 17 
85 00 A5 
18 A5 01 
0C F0 0A 
C4 0C B0 
A5 00 E9 
20 EC F6 
00 4C 11 
60 A6 09 



a 



0D00- 7F 7F 7F 7F 7F 7F 7F 7F 
0888- 7F 01 01 01 01 71 11 11 
8010- 7F 00 80 00 08 7F 00 00 
0D18- 7F 40 48 40 40 47 44 44 
0D20- 44 44 44 44 44 44 44 44 
0026- 44 44 47 40 40 40 40 7F 
0030- 00 00 7F 00 00 00 00 7F 
0D38- 11 11 71 01 01 01 01 7F 
0040- 11 11 11 (1 11 11 11 11 
0D48- 00 66 66 00 00 66 66 08 
0050- 00 4C 4C 00 00 4C 4C 00 
0058- 00 19 19 00 00 19 19 00 
#060- 00 33 33 00 00 33 33 00 
0068- 7F 41 41 41 41 41 41 7F 
#070- 08 08 08 1C 0B 80 00 80 
0078- 0F 69 69 0F 0F 69 49 0F 



8358- 18 ft6 19 F0 04 09 80 38 
8358- 02 29 7F 99 00 18 E8 C4 
#360- 0C D0 EB 60 ft4 SB B9 00 
0348- 18 49 7F 99 08 18 CB C4 
#370- 0C 80 F3 40 ft4 08 B9 00 
0378- 18 30 04 09 80 30 02 29 
#380- 7F 99 08 18 C8 C4 0C 08 
0388- EB 60 



0848- A4 24 BD FF FF 91 04 91 
8850- 04 E6 03 A4 03 E8 E4 00 
#858- 00 00 C6 08 F0 11 A4 24 
0840- CB C4 21 F0 12 84 24 18 
8868- A5 07 65 01 4C 1A 08 E6 
8870- 24 A4 24 C4 21 90 0E A0 
#878- 80 84 24 E6 25 A4 25 C4 
8888- 23 90 02 C6 25 A5 01 A6 
0888- 01 ft4 08 60 



0080- IE 
8088- 3C 
8090- 73 
0098- 70 
#OA0- 61 
80ft8- 43 
8&B0- 07 
0OB8- 7F 
#OC0- 7F 
0DC8- 7F 
8DD0- 7F 
0DD8- 7F 
0DE0- FF 
0OE8- Ff 
0DF8- FF 
88F8- FF 



52 52 
25 25 
4B 48 
16 16 
20 20 
5ft 5A 
34 34 
7F 08 
7F 00 
7F 00 
7F 00 
7F 00 
FF 00 
FF 00 
FF 00 
FF 00 



IE IE 
3C 3C 
78 78 
70 70 
61 61 
43 43 
07 07 
00 7F 
00 7F 
00 7F 
00 7F 
00 7F 
00 FF 
00 FF 
00 FF 
00 FF 



52 52 IE 
25 25 3C 
4B 4B 78 
14 16 70 
20 20 61 
5A 5ft 43 
34 34 07 
7F 00 00 
7F 00 00 
7F 00 00 
7F 00 00 
7F 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
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more small square boxes linked together. 
Each of these smaller boxes represents one 
character (bloek) within your current shape. 
The " + " sign marks which character you 
are currently in. Below the Block Map is the 
actual image you are editing. This is an 
exact representation of your shape, and it 
will change as you edit its larger look-alike 
in the Edit Box. 

Within the Edit Box arc many small 
squares. These represent one pixel (on the 
hi-res screen) of the actual image. The 
blinking box in the upper left-hand corner is 
your Editing Cursor. It can be moved by 
pressing W,A,S or X (see "Commands" 
chart). When a point is plotted (with the 
SPACE bar), the small square will become 
noticeably larger. If the center is black, then 
the high bit (color bit) of that segment is off. 
If white, then the color bit is on. 

There is room for up to 256 characters in 
the table. The actual number of shapes will 
vary depending on the number of characters 
each one takes up. For example, if a shape 
has a block sim of 2 by 4, 8 consecutive 
characters will be used to store the shape. 

continued on page 46 



QD. Editor (st eP Tw<>) 



10 REM 

H0=H0DE, £K=imim BYTE, 

8T=STfiRTIKB BYTE 
2* HQ = 25!ST = Itm = 12!BI = 2 

53 

38 H * i:v = i 

40 1$ = "N'lS* « "Y'll = 128IT* = 

•IJKL' 
5# TAt * "IIFFCMNL" 

tt onekr soto sm 

71 REK 

TABLE FOR C* 

80 D* - CHR* (4) 

90 REM 

CURRENT CHARACTER SET AT 

mt 

m LO = 3584 

110 R0T= 0: SCALE= i 

120 REM 

INCREMENT FOR VERTICAL C 

HARACTER COUNT 
13* IV = .125 
140 REM 
BUFFER FOR CHARACTER ttl 

800) 



150 H6 ■ 6144 

161 HCQL0S= 3 

170 REH 

HC6 

180 N3 * 3:N4 = 8 

190 REM 

EDITOR SET 

200 N5 ■ 0:N6 - 13 

210 REX 

WORK BUFFER tl800 

220 N7 > «:N8 = 24 

230 POKE 232.0! POKE 233,3 

240 TEKT : HONE 

250 NORNAL 

260 PRINT M"PRI0' 

270 HOME 

288 REH 

SET SIT FLA6 FOR ALL BITS 

290 POKE BI,8 

308 NORMAL 

310 PRINT "ENTER HORIZONTAL BLOC 

KSIZE ";: SET MS* 
320 IF ASC (MS*) = 27 AND TA < 
> THEN 2330 

continued on page 46 
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THE TACKLER n - dual . mod! parallel 

INTERFACE FOR THE APPLE* 2 BOARDS IN ONE FOR NO MORE 
COMPATIBILITY PROBLEMS! 

An intelligent board to provide easy control of your printers full potential. 
Plus a standard parallel board at the flip of a switch -your assurance of 
compatibility with essentially all software for the APPLE*. Hires printing 
with simple keyboard commands that replace hard to use software 
routines. No disks lo load. Special features include inverse, doubled, and 
rotated graphics and many test control features, available through easy 
keyboard or software commands. Uses Industry standard graphics 
commands. This is the first truly universal intelligent parallel interface! 
Change printers - no need to buy another board. Just plug in one of our 
ROM'S and you're all set. ROM'S available tor Epson, C. Itoh, NEC. and 
Okidata - others ava ilable soon. Specify printer wben ordering. Call for 
Price. 





THE UPGRADEABLE PPC-100 
PARALLEL PRINTER CARD 

A Universal Centronics type parallel printer hoard complete with cable 
and connector. This unique board allows you to turn on and off the high 
bit so that you can access additional features in many printers. Easily 
upgradeahle to a fully intelligent printer board with graphics and twt 
dumps. Use with EPSON, C. ITOH, ANADEX, STAR-WRITER, NEC. OKI 
and olbers with standard Centronics ennfigu ration. $133.00 



IF YOU WANT GRAPHICS AND FORMATTING THEN 
CHOOSE THE PERFORMER 

for Epson, OKI. NEC 8023. C. ITOH 8510 provides resident HIRES screen 
dump and prim formatting in firmware. Plugs into Apple slo! and easy 
access lo all printer fonts through menu with PRS command. Use with 
standard printer cards lo add intelligence. H9.00 specif) printer. 




THE MIRROR FIRMWARE FOR NOVATION APPLE CAT II* 

The Data Communication Handler ROM Emulates syntax of an other popular Apple Modem product 
with improvements. Plugs directly on Apple CAT II Board. Supports Vid en and Smarterm 80 column 
cards, touch tone and rotary dial, remote terminal, voice toggle, easy printer access and much more. 
List 139.00 Introductory Price $29.00 



MINI ROM BOARDS 

Flace your 2K program nn our Mini Rom 
Board. Room for one2?10 EPRQM. Useinany 
slot but lero. Only $34.95 



DOUBLE DOS Plus 

A piggy- back board that plugs into the disk- 
controller card sn that you can switch select 
between DOS 3.2 and DOS 3.3 DOUBLE DOS 
Plus requires APPLE DOS ROMS. $39.00 



Super Pix 

Hires screendump software for the Epson. OKI, C. Itoh and Nee 8023. Ose with tymac PPC-100. 
Special $19.95 {Specify Printer) 



Mr. Lister- Customer Contact Profiler & Mailer 

A Super Mail List Plus more - up to 1000 Entries nn single 3.3 Disk (only 1 Drive required) — 2 
second access time tn any name— full sort capabilities — Dual Indei Modes — supports new 9 
digit Zip. Easy lo follow manual — Not Copy Protected — 4 user defined tables with 26 sort 
selections per table — Beta tested for 6 months - user defined label generation. 
Introductory Price $135. $99.00 Dealer 8; Dist. Inquiries Invited. 



APPLE LINK 

A communications system for the Apple* (Requires Hayes Micro Modem). Transmit and receiveany 
type of file between APPLES*. Automatic multi-file transfer, real time clnck indicating file transfer 
time. Complete error check. Plus conversation mode. Only one package needed for lull transfers. 
Compatable with all DOS lile types, (requires Hayes Micro Modem) 359.00 



THE APPLE CARD/ATARI CARD 



Two sided 100% plastic reference card Loaded with information of interest ball Apple and Atari 
owners. ^' 9it 



NIBBLES AWAY II 

AGAIN! Ahead of all others. 

• AUTO- LOAD PARAMETERS . . . Free's the user from having to Manually Key in 
Patam values used with the more popular software packages available for the Apple II. 

• EXPANDED USER MANUAL. . . incorporates new Tutorials for all levels of 

expertice; Beginners Flowchart for 'where do I begin' to 'Advanced Disk Analysis' is included. 

• TRACK/SECTOR EDITOR ... An all new Track'Sector Editor, including the 
lollowmg features; Read, Write, Insert Delete Search, and impressive Print capabilities! 

• DISK DIAGNOSTICS . . Checks such things as: Drive Speed. Diskette Media 
Reliability, and Erasing Diskettes. 

• HIGHEST RATED. . . Best back up Program in Softalk Poll (Rated 8.25 out of 10). 

• CONTINUAL UPDATES. . . Available from Computer Applications and new listings 
on the source ^^_^^^^^_^_^^^^^^_^^^_ * 6S 95 




Dealer and Distributor Inquiries Invited. 

/WCRO-WflRE DIST. INC 

PO BOX 113 POMPTOH PLAINS, N.J. 07444 

201-838-9027 



z 
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TRY DEFORE YOU DUY 

DEMO DISK FOR $15.00 



Fastest by Far — Compare speed to any other Apple II word processor 

• Text editing speed rivals that of larger computers 

• Extremely rapid text formatting 

■ [nstant switching between editor and formatter with language card 

• Rapid loading of standard text files 

Easy to Use - designed with YOU in mind . . . 

• Easy to learn - includes interactive Tutorial 

• Easy to remember, abbreviated commands 

• Cut /Paste/ Replicate with ease 

■ Adjustable automatic word wrap 

• Editor remembers document name for easy disk updates 

Powerful, Professional Features — won V soon be outgrown . . . 

• Auto -paragraph, headers, footers, test-page, user-definable page number 
format, centering, full margin control at all limes, incremental spacing, 
left and/or right justify, tabs and tab stop setting, many more format- 
ting features! 

• Edit Macro - much more powerful than a mere L 'search and replace"! 

• File chaining via unique "CALL" feature allows unattended printing of 
very large documents. 

• Form Letter/Mail Merge - ideal for generating form letters, standard 
legal documents, bulk printing of letters or customized 
advertisements, begin/repeat blocks, and much more! 

• Conditional Text with logical operators adds even more 
flexibility to Form Letter /Mail Merge feature 





by 
Doug Stinson 



COPY PROTECTED 



Complete System Capability Demo to Give You the 
Ability to Use the System Before You Purchase. 



Complete System S175.00 

Includes Full System Plus Kxtensive Users Manual. 
Here 's what some of our customers have to say about our word processor: 

"This is my third {and by far the best) word processing system. This 
will replace over $300 in other software packages. " - J. B., Fenton, 
Missouri. 

"7 he best word processor package for the Apple II that we have 
evaluated. . . Congratulations on a fine job of software development. v 
- A. C, Charlottesville, Virginia 

"Congratulations! I've thoroughly explored it and it's a very fine piece 
of work - extremely powerful and, despite my best efforts, virtually 
crashproof. " - J. B„ St. Louis, Missouri 



Versatile 



fits a wide variety of systems and applications . . . 

• Normal shift key operation for case shifting (optional). 

• Can be used with or without lower case adapter. 

• Supports optional Videx 80 column card (ideal for screen preview). 

• Fast editor/formatter switching with RAM card installed. 

• Supports Qume, NEC, Diablo, C. Itoh, Vista, Epson, many other 
printers, 

• Uses standard text files - compatible with a wide range of other soft- 
ware, such as data base managers, user-written BASIC programs, and 
spelling dictionaries! 



"/ love your word processor' 

. 13 Please send rne a 



H. S., Denver, Colorado 



WRITE AWAY DEMO DISK 



"1 

I 



■ 



Midwest Software Associates 

Phone: Toll Free 1-800-362-2421/ Ext. 467 



MSA 



Midwest Software Associates 

P. O. Box 301 
St. Ann, Missouri 43074 



P. O. Box 301 • St. Ann, Missouri 63074 
MISSOURI: 1-800-835-2246/ Ext. 467 



P.O. Box 44549, Tacoma, WA 98444 
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When you either store (PUT) or retrieve 
(GET) a shape, you will be asked to enter 
its character code. There arc two ways to 
enter this code: 

1)By its ASCII value, it number from to 
255. It must be preceded by a "#'". 

2) By an ASCII symbol. You will then be 
asked to enter its type (flashing, inverse, 
control, normal or lowercase). 

3) By pressing RETURN to select the 
default character. This default is displayed 
upon entering either the GET or PUT 
modes. 

Methods 1 and 2 are really one and the 
same because the numbers 0-255 are the 
ASCII values that correspond to the Char- 
acter Set (see page 15 of the Apple Refer- 
ence Manual). This means that a shape with 
a code of 1 16 can be accessed by enter- 
ing the characters 4 and then F (for flash- 
ing). 

Once in the editor there are many com- 
mands available (see illustration #2). 
Motion keys are W for up, X for down, A 
for left, and S for right. Pressing the SPACE 
bar toggles the current pixel on/off (plot/ 
don't plot). 

Three continuous modes are available. 
Exit any of them by pressing either the 
SPACE bar or the ESC key. 

1 "Continuous Plot" mode. Every time 
you move, you will plot a point. 

2 "Continuous Erase" mode. Every time 
you move, the current pixel will be 
erased. 

3 "Special Reverse" mode. Every time you 
move, you reverse the image. In other 
words, each pixel is turned "on" if previ- 
ously "off" or "off" if previously "on". 

The left arrow sets the high bit, and the 
right arrow elears it. This allows you to eas- 
ily change colors. When either of these keys 
are pressed, you will be presented with the 
following choices: 

Block, Line, 
Segment or All. 

The "Block" option will only do the 
specified operation on the current character 
you are in. The "Line" option will do the 
entire horizontal line you are on. The '"Seg- 
ment" option will only do that line within 
the block. And "All" will do the entire 
shape. 

Ctrl 1 will inverse the shape (see above 

for options). 

Ctrl F will flip the high bit for each seg- 
ment (see above for options). 

" (shift 2 on an Apple) will allow 

you to select a new block size. 



continued from page 44 

338 A ■ VAL (HSt): IF A » I THEN 

ft ' H 
340 PRINT A 
358 IF A > 7 THEN VTAB 5: PRINT 

St'HORHONTAL OUT OF RANGE ( 

HAW)": VTAB l: GOTO 311 
360 IF A < I THEN VTAB 5: PRINT 

Gf HORIZONTAL GUT OF RANGE H 

IN=1)': VTAB I: GOTO 310 
370 VTAB 5: PRINT SPCI 31): PRINT 
380 VTAB 3: PRINT "ENTER VERTICA 

L BLOCK SUE ";: GET HSt 
390 IF ASC (HSt) = 27 AND TA < 

> THEN 2330 
400 X = VAL INS*}: IF X = THEN 

X « V 
410 PRINT X 
420 IF X > 4 THEN VTAB 5: PRINT 

GfVERTICAL OUT OF RANGE (Hfi 

MP: SOTO 380 
430 IF X < 1 THEN VTAB 5: PRINT 

6* "VERTICAL KIT OF RANGE 4 HI 

N=li": SOTO 380 
440 VTAB 5: PRINT SPC( 3D 
450 PRINT 
4*0 PRINT "INVERSE BACKGROUND (¥ 

/Nl? "); SET HSt; IF ASC (H 

St) = 27 AND TA < > THEN 

2330 
470 IF HSt ■ "V" THEN It = "Y':I 

* 255:Tt » "MM* 
480 PRINT It 
490 PRINT 
500 PRINT : PRINT "SOUND (Y/M>7 

"f! GET HSt: IF ASC (HSt) * 

27 AND TA < > THEN 2330\ 
510 IF ASC (HSt! * 13 THEN HSt * 

St 
520 IF HSt * "H" THEN Gt « " 
530 IF HSt < > "N" THEN HSt = " 

Y'JSt « CHRt (7) 
540 St * HSt: PRINT HSt 
550 H = AfV = X 

560 Dt = "A": CI = "N":0Ct = Ct 
570 » ASC (Gt) + 128 
580 HSR 

590 BY = V * H # 8 
600 POKE 788,1: POKE ST.BY: CALL 

785 
£10 POKE 34,20 
620 POKE 9,BY + 1 
630 POKE 4.N5: POKE 5,N6: POKE £ 

.1: POKE 7,1 

M0 mm * "A";Atu) = wmm 

= «8« 

650 MIS) ■ "H" 

460 FOR XX * 1 TO H 

670 fttfl) * Mff) + "BBBB":M(1) = 

MM) t Tt:M(2) « At (2) * ' 

FFFF" 
680 M<3) ■ M(3) t "IJKL" 
690 NEXT XX 
700 Mff) ■ Mfl) + "C":M(1} ■ A 

1(1) + , D":At(2) = At(2) i " 

E" 
710 At(3) = At(3) + "D" 
720 POKE 54, N3 
730 POKE 55.N4: CALL 1002 
740 TA - INT ((31 - H # 4) I 2): 

HTAB TA 



750 REK 

XN*H1N. VALUE FOR XP, YN 

■KIN. VALUE FOR YP 
768 XH* 8 ♦ ((TA - 1) * 7>;VN = 

9 
770 XH = XN - 4 f 28 * H:YH * 5 * 

32* V 
780 REH 
EDIT BOX 

798 CX * 0:CY » 
800 T2 ' 
810 XP « XNlYP » YH 
820 T3 * 
838 IHVERSE 
840 VTAB 1 
858 PRINT M(f) 
860 FOR X = 1 TO V * 4 
870 HTAB TA: PRINT MM): NEXT 
880 HTAB TA; PRINT At(2> 
898 FOR Y = 1 TO V 
900 FOR X « 1 TO H: VTAB Y: HTAB 

32 * X: PRINT "H": NEXT X 
910 NEXT Y 

920 VTAB l: HTAB 33: POKE 2125.8 
1: PRINT "N": POKE 2125,145 

930 OX * 0:OY * 1 

940 POKE 2125,145 

950 REH 

RE-CONNECT HC6 

968 POKE 54, N3: POKE 55, H4: CALL 
1802 

978 REH 

DISPLAY CHAR. AT SIDE OF 
SCREEN 

988 POKE 4,N7! POKE 5,N0 

990 POKE £,H: POKE 7,V 

1088 POKE - 16368,0 

1010 VTAB 9: HTAB 33 

1020 INVERSE 

1030 PRINT "«■ 

1040 IF OX * CX AND OY « INT (C 
Y) + 1 THEN 1138 

1050 POKE 6,1: POKE 7,1 

1060 POKE 4 N5: POKE 5.H6 

1070 POKE 2125.81: VTAB OY: HTAB 

33 ♦ OX: PRINT "N" 

10B0 VTAB INT (CY) ♦ 1: HTAB CX 

t 33: PRINT "N" 
1098 OX = CXIOY > INT (CY) + I 
1100 POKE 2125,145 
1110 POKE 6,H: POKE 7,V 
1121 POKE 4.N7: POKE 5,N8 

ii3i mm I at xp,yp: xdran 2 at 

xp.yp 
1141 for x * 1 to 10: next 
1158 xdran 1 at xp,yp: xdran 2 at 

XP.YP 
1160 KEY = PEEK ( - 16384): IF K 

EY < » 127 THEN 1010 
1178 POKE - 16368,0 
1180 IF T3 ■ THEN 1210 
1190 IF KEY = 215 OR KEY « 193 OR 

KEY ■ 196 OR KEY - 216 THEN 
SOSUB 3290 
1200 REH 
DOKH "X" 

1210 IF KEY » 216 THEN 1570 
1220 REH 
UP ■*■ 
1230 IF KEY * 215 THEN 1620 
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1240 


REM 




1430 


REN 


RIGHT 


■D" 




ERASE CHARACTER SET CD 


1231 


IF KEY « 


196 THEN 1650 


1440 


IF KEY = 192 THEN 2370 


1260 


REM 




1430 


REN 


LEFT 


"A" 




CHECK FOR EXIT (CTRL I) 


1270 


IF KEY * 


193 THEN 1700 


1460 


IF KEY i 152 THEN TEXT i HONE 


1290 


REM 






: NORMAL : PRINT H'PMf*: END 


PLOT/UNPLDT "SPACE" 




I REN CTRL X, END PROfiflAff 


1290 


IF KEY » 


160 THEN T3 > 0: SOTO 


1470 


REN 




1760 




CTRL If (SET H1SH BIT) 


1300 


m 




1480 


IF KEY « 149 THEN POKE NO, 


ERASE CHARACTER "!' 




l: SOTO 2420 


1310 


IF KEY * 


161 THEN 600 


1490 


REN 


1320 


REN 




CTRL H (CLEAR HISH SIT) 


START ALL OVER 


? If? 


1300 


IF KEY « 136 THEN POKE HO, 


1330 


IF KEY = 


162 THEN 240 




0: SOTO 2420 


1340 


REN 




1310 


REM 


STORE CHARACTER '?• 


FLIP CHARACTER *?" 


13S0 


IF KEY = 


208 THEN 1850 


1520 


IF KEY ■ 191 THEN 2610 


1360 


REH 




1530 


REN 


BET CHARACTER 


"8" 


CTRL I. INVERSE (EOS) 


1370 


IF KEY = 


199 THEN 2010 


1340 


IF KEY * 137 THEN 2630 


1390 


IF KEY > 176 AND KEY < 180 THEN 


1330 


SOTO 1010 




T3 = KEY ■ 


■ 176: SOTO 1010 


1560 


REN 


1391 


REH 








ESC 






DOWN 


1400 


IF KEY « 


153 THEN T3 = 


1570 YP = YP t 4 


1410 


REN 




1580 CY = CY t IV 


DISK 


"CTRL D" 




1390 


IF YP > YH THEN YP « YNlCY = 


1420 


IF KEY = 


132 THEN 2190 




1 



G GETs a character from the Char- 

acter Set, The character may be 
entered as an ASCII value (see 
Hard Co re Com puling Update 
2 . 1 , or page 1 5 o I" the Apple U Ref- 
erence Manual far the proper 
ASCII codes). If an ASCII value 
is to be entered, precede it with the 
pounds sign (#) and press 
RETURN when done. If entered 
as a norma] character, you will be 
asked [ip specify what type (flash- 
ing, control, lower case), 
RETURN defaults to Normal. 

P PUTs a character into the Charac- 

ter Set. This command works the 
same way as the GET command . 

I (shift "1" on an Apple) will cause 

the entire character to be erased . 

Ctrl D catalogs the disk and asks whether 
you wish to SAVE or LOAD a 
Character Set. Press ESC to exit. 
When asked for the file name, 
RETURN will exit. Otherwise 
enter the file name and press 
RETURN. 



<& 



<$ 



& 



SUPERIOR SOFTWARE inc. 



% 



& 



% 



PRESENTS 



m, 



^u 



tf 



Wfc dSuesft Jfor 8gje Jloip 0xsail 

Another SUPERIOR PRODUCT from SUPERIOR SOFTWARE INC. 

A new and exciting adventure game featuring hi-res and lo-resgraphics, extensive, interactive text, and music! The player, 
an erront knight, searches for the grail throughout the forests and monasteries of merrye aide England. There are, of course, stops 
at friendly taverns as well, and along the way encounters with dragons, killer rabbits, wanton wenches, black knights, fair motdens, 
sensuous sirens, wizards, and other characters. Though help is available, including priests, m+nstreJs, jesters, friars, and magic 
potions (all for a price), the path is lined with danger and it is easy to become lost or, worse yet, fall into a slimy cesspool. 



FEATURES; 

* Over SOK 

* Musk 

* Hi-res 

* Lo-re* 

* Interactive teat 

* Character create 

* Save game in 
progress 

* Display or skip 
instructions 



USER MODIFIABLE: 

• Fully li stable 

• Eos/ back-up 

• Use algorithms 
in own programs 

• Add new displays 
and adventures 

• Chain to your 
own programs 

• Royalties for 
modification* 



NO WAITING/1 DAT SHIPPING: 

* Disks shipped within 1 
working day of receipt 
of your order by mat!, 
source, or phone! 

* No wafting for personal 
checks to clear! 



AVAILABLE NOW: 

* At your local dealer. 
If he doesn't hove it, 
ask him to contact us, 

or 

* Order direct by moil. 
Just send your address 
and a check or M.O- to 
the below address, 

or 
9 Order via THE SOURCE. 
Send your no me and 
address to TCV806 ond 
put your check in mail. 
Your game will 1 be on 
its way immediately. 



Apple || and Applesoft are registered 
Trademarks of Apple Computer, Inc. 



REQUIREMENTS: 
« 43K Apple || 

• ROM Applesoft 

• 1 Disk, DOS 3.3 



[Dealer inquiries invitedj 



$24.95 

Lo residents 
odd 6% ton 



SUPERIOR SOFTWARE INC. 

Department HC 
P.O. Box 261 
Kenner, La. 70063 
(504) 468-2273 
SOURCE-TCY806 



P.O. Box 44549, l&coma, WA 98444 
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Ctrl @ clears the entire Character Set. 
When using this command, you 
will be asked to enter the entire 
word "YES" and press RETURN 
if you want to erase the Character 
Set. Every other entry exits this 
routine. 

Ctrl X exits from the editor. 



NOTES: All the commands (except 
when using the #) require a single key press 
and do not require the pressing of RETURN 
(which is used to select defaults). To exit 
from any of the above options, press the 
ESC key (or RETURN if it is specified). 



When Designing 
Letters 

If you are designing letters, make sure 
you leave a pixel on both sides of the shape 
and one at the top and/or bottom so that 
your letters do not merge into each other. 

Now that you have created a few charac- 
ters and saved them, don't forget to save the 
entire Character Set. You are now ready to 
link Quick Draw to your own BASIC pro- 
gram. 

As previously mentioned, each character 
has a number 0-255 associated with it. To 
use the HCG effectively, a fast method of 



passing the character number to the HCG 
had to be found. I decided to use the PRINT 
command. This means you can use VTAB, 
HTAB, and TAB to position your shape on 
the hi-res screen, then simply PRINT the 
ASCII character. For example, to PRINT 
the shape stored in character #0, you would 
first set the INVERSE mode and then 
PRINT "@", since on the ASCII table 
(page 15 of the Reference Manual) is an 
inverse "@". For special characters, such 
as the Underline, you must set the proper 
mode (flashing, inverse or normal) and 
print the Applesoft ASCII (which can be 
found by subtracting 128 from the normal 
ASCII value). I have included a few exam- 
ples of letters and how they would be 
called: 



1610 
1610 


&0T0 1010 
REN 






UP 

1621 YP * YP - 4:C¥ * 
YP < YN THEN YP 
IV 

1630 SOTO 1010 

1640 REM 


CY - IV: 
« YNICY * 


IF 
V - 



RIBHT 

1650 XP = XP + 4 

1660 IF KP > I* THEN XP = XN:CX = 

0:72 « 0: SOTO 1018 
1670 T2 = T2 + l: IF T2 > 6 THEN 

T2 * 8:cx = ex + i 

16B0 SOTO 1010 

1690 m 

LEFT 

1700 KP « XP - 4 

1710 IF XP < XN THEN XP * XH:CI * 

H - l:T2 > 6: SOTO 1110 
1720 T2 « T2 - 15 IF T2 < 8 THEN 

T2 » 6JCX * CX - 1 
1730 60T0 1010 
1740 REN 

PLDT/UNPLOT 

1758 REK 

CLEAR COLLISION COUNT 

1760 POKE 234.00 

1771 XDRAK 1 AT XP.YP 

1780 P * l: IF PEEK 1234) * 8 THEN 

' P" - 1 
1790 6QSUB 2640 

1S00 P " PEEK <P0) * 2 * T2 * P 
1810 IF P < 128 THEN XDRAH 2 AT 

XP.YP 
1820 POKE PO.P 
1830 SOTO 1810 
1840 m 

PUT CHARACTER 

1850 NSt » 'SAVE AS" 
1860 6QSUB 2B70 

1870 HOKE : VTAB 21: PRINT 'SAVE 
THIS CHARACTER UNDER THE Ffl 
LLQKIN6 LETTER? "1 



1880 IF ASC (A*) < 32 THEN PRINT 
'CTRL ■; CHRt ( ASC (ft*) + 6 
41" '*: SOTO 1930 

1890 IF C* » "C" THEN PRINT "CT 
RL "! 

1900 IF CI « V THEN PRINT *LN 

1918 If'c* » "I" THEN INVERSE 

1928 IF Ct = *F« THEN FLASH 

1930 PRINT At!: NORMAL : PRINT ' 
\mn "C SET Bt: PRINT : IF 
Bt < > T AND H < > CHR$ 
(13) THEN SOStJB 2900: SOTO 
1870 

1940 HONE : VTAB 22: FLASH ! HTAB 
11: PRINT "STORING CHARACTER 
■: FOR X « 8 TO 100: NEXT X 

1950 60SUB 2670 

1960 POKE ST.BY 

1970 CALL 796 

1980 HOME 

1990 SOTO 960 

2808 REN 

GET CHARACTER 

2810 HSt ■ "GET": GOSUB 2870 

2020 60SUB 2670 

2030 POKE ST.BY 

2040 CALL 807 

2050 XP = XN:YP * YN:T2 * 0:T3 « 

8:cx » 0:CY » 0:SX » xp;sy = 
yp:na = yr:ni = yn:Bb * w:E 

B-BY 
2860 HONE 
2878 VTAB 22: FLASH : HTAB (111: 

PRINT "6ETTIN6 CHARACTER" 
2088 POKE 54.N3: POKE 35.N4 
2090 CALL 1082 
2108 VTAB 9: HTAB 33 
2118 INVERSE 
2128 PRINT "(' 
2138 POKE 0.SX: POKE 1,SY: POKE 

2.NA: POKE 3,NI 
2148 POKE ST.BB: POKE EH,EB 
2150 CALL 5888 
2168 PR* 0: HONE 
2170 SOTO 960 
21S8 REH 



ACCESS DISK 

2190 80SUB 3470! TEXT i HONE 

2280 PRINT 

2210 NORNAL : POKE - 16388,0 

2220 PRINT DCCATAL06': 8ET A*: PRINT 

2230 PRINT : PRINT 

2240 VTAB 22: PRINT 'LOAD OR SAV 

E CHARACTER SET (L/SI? ';: SET 

At: PRINT 
2250 IF ASC (All - 27 THEN 2330 

2260 Lt " ",AtE00" 

2278 IF At * "L" THEN At » "BLOA 

0": OOTO 2380 
2280 IF At * 'S' THEN At = 'BSAV 

E'lLt » Lt ♦ ",LtB08': 60TO 

2308 
2290 PRINT Gt'ILLESAL ENTRY": 60T0 

2240 
2300 PRINT "ENTER CHARACTER SET 

TO "At;: INPUT ' "JT1I 
2310 IF LEN (Tit) * THEN 2330 

2320 HONE : VTAB 12: PRINT At'IN 
6 'Tit! PRINT MlMfTltUt 

2330 HONE : POKE 54,N3: POKE 35, 
N4: CALL 1002 

2340 POKE - 16304,0: POKE - 16 
297,0 

2350 GOTO 1810 

2360 REN 

ERASE CHARACTER SET 

2378 NORNAL : PRINT Dt"PR#0": INVERSE 
: VTAB 22: INPUT 'ERASE THIS 
CHARACTER SET (YES/NO)? ")A 
t 

2330 60T0 960 

2390 IF At = 'YES" THEN CALL 61 
8: GOTO 240 

2400 GOTO 2330 

2410 REN 

CHANGE HIGH BIT 

2420 60SUB 3470: VTAB 23: PRINT 
GIStf: IF PEEK (NO) * THEN 
PRINT 'CLEAR"! 
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SHAPE 23 (an inverse W): 

set the INVERSE mode 
and PRINT "W TT 

SHAPE 225 (a lower ease A): 
set the NORMAL mode 
and PRINT CHR$(225-128) 

SHAPE 210 (a normal R): 

set the NORMAL mode 
and PRINT "R" 

Unking the HCG 
to BASIC 

The first thing that must be done is to 
move the program above the hi-res page. 
Next LOAD the Character Set and Quick 



Draw. To do this, enter the following 
"header" as the first lines of your program; 

10 IF PEEK (103) = 1 AND PEEK 
(184) -64 THEN 30 

20 POKE 193,1: POKE 184,64: POKE 
16384,0: PRINT CHR$(4)"RUN pro- 
gram name here" 

30 PRINT CHR$(4)"BLOAD QUICK 
DRAW" 

40 PRINT CHR$(4)"BLOAD TABLES" 

50 PRINT CHR$(4)"BLOAD name of 
character set,A$E80" 

Line 10 cheeks to see if you are above the 
hi-res page. If not, it resets the pointers to 
load the program above the hi-res page and 



reruns the program (line 20). Line 30 loads 
Quick Draw into memory and line 40 loads 
in the appropriate Character Set. 

The following pointers must be set to 
allow the HCG to operate correctly: 

1) Zero page locations 4 and 5 contain the 
address ofthe Character Set we wish to use. 
This location ean be changed if more than 
one Character Set is required. The normal 
location of the Character Set is 3584 deci- 
mal ($E00 hex). 

POKE 4,0: POKE 5,14 

2) Locations 6 and 7 contain the horizon- 
tal and vertical block sizes, respectively. 
Normally: 

POKE 6,1: POKE 7,1 



2431 IF PEEK (HO) • 1 THEN PRINT 

"SET 1 J 
2440 PRINT ' HIGH BITVCA « 844 
24SI PRINT "BLOCK.ALL.LINE OR SE 

GHENT? ';: SET C*: HONE I PRINT 
2461 IF Cf ' "B" THEN 2568 

2471 if c» » 'a" then poke st,* 
: poke en, br: call ca;sx « x 
n:sy - vn:na * v«:hi ■ yn:bb 

= *:£B « BY: 80T0 2*8* 
248* IF Ct < > "S" THEN 258* 
2491 SOSUB 264*:PO * FD • HS; POKE 

ST.PO: POKE EN,P0 ♦ 1: CALL 

CA:SX * HP - 4 * T2:SY = YP: 

BB ■ P0:EB ■ PO + i:ki < yn: 

NA = YN: SOTO HONE : GOTO 2 

*80 
25** IF Ct < > V THEN 960 
251* T4 » CX: FOR X » 1 TO H:CX ■ 

X - U 60SU8 264*:PQ * PO - 

m 
2S2* POKE ST,P0: POKE EN,P0 t 1: 
CALL CA! POKE f.M t 28 * ( 

X - It: POKE 1,YP: POKE 2,YH 

: POKE 3,YN 
253* POKE ST.PO: POKE EN,Pfl ♦ 1: 

CALL 5888 
254* NEXT X:CX - T4 
255* SOTO 96* 
256* T4 = CY:CY ■ INT (CY): SOSUB 

264§:CY > T4IP0 « PO - HS 
257* POKE ST.PO: POKE EN,P0 * 8: 
CALL CA 

258* sx « xp - 4 * t2isy = yp - 4 

* int (8 i (cy - int (cy) 

)):na ■ yn:ni = yn;bb»po:e 

B « PO ♦ S 
259* HONE : SOTO 2*8* 
26** REN 

FLIP CHARACTER 

261* SOSUB 3471: VTAB 23: PRINT 
BttTFLIP CHARACTER' :CA > BB 
4: SOTO 245* 

262* m 

INVERSE (EOR) 

263* GOSUB 347*: VTAB 23: PRINT 
StSt'INVERSE CHARACTERS > 
868: SOTO 245* 



264* REM 

CALX. WHERE BYTE IS 

265* PO = H6 + ( INT (CY) ♦ CX * 
V) * 6 * (CY - INT (CV» * 
8 

2661 RETURN 

267* REN 

UPDATE DEFAULT CHAR. 

26B* 0* * At 

269* A = 

27** IF LEN (At) « * THEN 285* 

271* A = ASC (At) + 128 

272* IF Ct = m THEN 285* 

273* IF LEN (Ct) » * OR Ct * "N 

■ OR ASC (Ct) * 13 THEN 285 


274* IF Ct < > "L* AND Ct < > 

"H" AND Ct ( > 'I" AND Ct < 
> "C» AND Ct < > "F" THEN 

Ct - ": SOTO 285* 
275* IF C* < > "C" THEN 27B* 
276* IF A > 191 AND A < 224 THEN 

A ' A - 64 
277* SOTO 285* 

278* IF Ct < > V THEN 28** 
279* IF A > 191 AND A < 224 THEN 

A * A + 32: BOTO 285* 
28** IF Ct = 'F" THEN 2B4* 
281* A = A - 128 
282* IF A > 63 THEN A * A - 64 
283* 60T0 2S5* 
284* A » A - 64: IF A > 127 THEN 

A = A - 64 
285* OCt * Ct:0« A:K ' LO + A * 

8 - li POKE 27, INT (X / 256 

): P0KE26,* - INT (X/256 

) t 256 
286* RETURN 
2B7* REN 

GET SAVE/LOAD CHAR. 

2880 A > - 1 

289* SOSUB 347* 

29** PRINT 8tBt 

291* HONE : VTAB 21: PRINT HSt' 

WHAT CHARACTER (I'D*) '; 
292* IF LEN (Ot) = * THEN 3f*f 
293* IF OCt « "F 1 THEN FLASH 



294* IF OCt » "I" THEN INVERSE 

293* IF ASC (Ot) < 32 THEN PRINT 

'CTRL ■ CHRt ( ASC (Ot) t 64 

);: SOTO 2990 
296* If OCt = -C THEN PRINT 'C 

TRL "I 
297* IF OCt = -L' THEN PRINT 'L 

HR "! 
298* PRINT Qtj 
2990 Ct * OCt 
3*00 NORHAL : PRINT ■ ? ■;: BET 

At 
3*1* IF ASC (At) = 13 THEN At ■ 

Ot; RETURN 
3*2* IF At * " OR LEN (At) < 1 

THEN At = Ot: RETURN 
303* IF ASC (At) = 27 THEN POP 

: HONE : POKE 54.N3: POKE 35 

,N4: CALL 10*2: BOTO 101* 
3*4* PRINT At{ 
3*5* IF At = '!" THEN INPUT "| 

BtlAt = At t St 
3*6* IF LEFT* (At,l) = "*' AND 

LEN (At) < > 1 THEN 317* 
3*70 IF ASC (At) < 2* THEN Ct = 

•N": RETURN 
3*8* IF ASC (At) > 63 THEN 312* 

3*98 PRINT : PRINT 'WHAT TYPE NO 
R/INV/FLS? "j: SET Ct: PRINT 
: IF ASC (Ct) » 27 THEN 313 

3100 IF Ct < > »N" AND Ct < > 
•I' AND Ct < > 'F" AND Ct < 

> CHRt (13) THEN PRINT St 
"ILLEGAL ENTRY": 60T0 309* 

311* RETURN 

3120 PRINT : PRINT "WHAT TYPE NO 

fi/INV/FLS/CTR/LON? ■[: SET C 

li PRINT 
313* IF ASC (Ct) -" 27 THEN POP 

: HONE : POKE 54.N3: POKE 55 

,N4: CALL 10*2: SOTO 1*10 
J140 IF Ct < > "N* AND Ct < > 

•I" AND Ct < > "F" AND Ct < 

> "C AND Ct < > "L" AND C 
t < > CHRt (13) THEN PRINT 
6*' ILLEGAL ENTRY 1 : SOTO 309* 
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To link the HCG, wc need to force the 
PRINT command to go to the HCG instead 
of to the normal routine for printing charac- 
ters. To do this, change S37 and $38 (the 
print output hooks) to point to $803 and do a 
call to DOS to let it know what's going on: 

POKE 54,3: POKK 55,8: CALL 1092 

Now the HCG is linked and ready to go. To 
disable the generator, 

PRINT CHR$(4)"PR#0" 

While the generator is linked, all charac- 
ters will be printed to the hi- res screen, even 
error messages (so be careful or your error 
message may be a scries of strange shapes 
and symbols). 

To do all of the above, add these lines to 
the header you started: 

60 POKE 4,0: POKE 5,14 

70 POKE 6,1: POKE 7,J 

80 POKE 54,3: POKE 55,8: CALL 1082 

To discover just how easy it is to use, play 
with the demo for Quick Draw (Orde's 
Space Raid) . After playing around with it 
for a while, return here for some additional 
features of Quick Draw. 



3150 IF ASC (fit) t H # V - [ > 
93 AND Ct = V THEM FLASH 
: HTAB 12: PRINT 6t "NOT EMU 
6K RODIT: FOR I = 1 TO 800: NEXT 
; NORMAL I GOTO 29f0 

3160 RETURN 

3176 A* -■ RIGHT* (A*, LEW (fit) - 
I) 

3188 ft • VftL (At): IF STRt (A) < 
> At 08 A < f OR A > 255 THEN 
PRINT : PRINT 6t"ILLE6AL EN 
TRY': GOTO 2918 

319* IF A + K * V - 1 > 255 THEN 
FLASH : HTAB 12: PRINT 6t"N 
OT EN0U6H ROOM": FOR X • 1 TO 
800: NEXT : NORHAL ; 60T0 29 
10 

3200 IF A < 32 THEN At = CHRt ( 
A * 192):Ct = "I*: SOTO 3270 

3218 IF A < 63 THEN At * CHRt ( 
A * 128):Ct -" "I 1 : GOTO 3270 

3221 IF A < 94 THEN At * CHRt ( 
A + 128):Ct = "F": GOTO 3270 

3230 IF A < 128 THEN At = CHRt 
(A + Ml.Ct " "F»: GOTO 3270 

3240 IF A < 160 THEN At = CHRt 
(A * 44):Ct = 'C. GOTO 3270 

3250 IF A < 224 THEN A* ■ CHRt 
(AKCt = "N"; GOTO 3270 
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3260 IF A > 223 THEN At = CHRt 

(A - 32HCt « V 
3270 At = CHRt (ASC (At) - 128) 

:ot > At 

3280 RETURN 
3298 REH 

CHECK FOR PLOTTINQ 

3300 POKE 234,0 

3310 IF T3 < > 1 THEN 3340 

3320 BRAN 1 AT XP.YP: IF PEEK ( 

234) < > THEN RETURN 
3330 60SUB 2640: POKE PO, PEEK ( 

PO) t 2 * T2 
3340 IF PEEK (PO) < 128 THEN XDRAN 

2 AT XP.YP 
3350 RETURN 

3360 IF T3 < > 2 THEN 3420 
3370 HCOL0R= 8: DRAN 1 AT XP ( YP: 

HCQLQR- 3 
3380 IF PEEK (234) < > 8 THEN 

RETURN 
3390 60SUB 2640: POKE PO, PEEK ( 

PO) - 2 A T2 
3480 IF PEEK (PO) < 128 THEN XDRAN 

2 AT XP,¥P 
3418 RETURN 
3428 POKE 234,0 

3430 KDRAN 1 AT XP.YPlP = 1: IF 
PEEK (234) « I THEN P « - 

1 
3440 GQS08 2640: POKE (PO), PEEK 

(PO) * 2 A T2 I P 
3458 IF PEEK (PO) < 128 THEN XDRAH 

2 AT XP,¥P 
3460 RETURN 

3470 NORHAL I PRINT M'PMf*: PRINT 
3488 RETURN 
3498 X = PEEK (210) * PEEK (219 

) * 256IY « PEEK (222) 
3500 STOP 
3510 REN 

WRITTEN BY 



3520 REH 
ROBB CANFIELD 

3530 REN 
C0PYRI6HT 1982 

3540 REN 
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QD. Editor. UtiL Obj <st ep Three) 



im 

1111 
1120 
1030 
1040 
1050 
1060 
1070 
1090 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1181 
1190 
1200 
1211 
1220 
1230 
1240 
1231 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1371 
1390 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1481 
1490 
1500 
1510 
1520 
1330 
1540 
1530 
1560 
1370 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1651 
1660 
1670 



ROUTINES FOR THE EDITOR 

BY ROBB CANFIELD 

CGPYRISHT 1982 

5QFTKEY PUBLISHES 



THE LINK BETWEEN BASIC AND MACHINE 
ENDING BYTE 



START ,EB m 

END .EB *0C 

NODE .Efl «19 

CHAR, SET .EC *E00 CHARACTER SET CURRENTLY IN ME80RY 

WRK.CHAft .Efl 11800-1 AREA FOR THE CHARACTER HE ARE HORK1NS ON 



POINTER .Efl «1A,*1B POINTERS FOR VARIOUS HOVE ROUTINES 



.OR 1311 , PUT RISHT BELOW THE SHAPE TABLE 
,TF CD. ED I TOR. UTIL. OBJ 



ERASE.HEH KILL ERASE A 
DESIGNATED NUMBER OF BYTES 
IN MEMORY STARTIH6 AT *4000. 

THE NUMBER OF BYTES TO ERASE 
-1 ARE STORED IN SD0 (DEC. 
208), 

THIS ROUTINE STARTS AT (311 
QR 785 DEC. 



ERASE.NEfl LDY START SET NUMBER OF BYTES TO ERASE 
LDA 1*01 PUT (00 INTO THESE BYTES 

CONT.ERASE STA NORK.CHAR,Y ERASE WHATEVER CHARACTER HAS HERE 
DEY M KIT BYTE 
BNE CONT.ERASE IF NOT DONE THEM ERASE SOME NORE 
RTS DONE SO RETURN TO BASIC 



*■ 
* 

* 
I 

i 
f 
f 
I 
f 
t 
t 
t — 



HOVE. TO: MOVES A CHARACTER 
FROH THE NOfiK BUFFER TD THE 
CHARACTER SET. THE NUMBER OF 
BYTES TD HOVE IS STORED AT 
*D0 (DEC. 2081 AND THE 
LOCATION TO HOVE THEN TO (-1) 
IS STORED AT ID1, *D2 <LO«, 
HI6H) (DEC. 209, 211) 

THIS ROUTINE STARTS AT I31C 
OR 796 DEC. 



HOVE. TO LDY START SET NUMBER OF BYTES TO HOVE 
CONT.MOVE.TO LDA NORK.CHAR.Y SET BYTE TO MOVE 



Advanced Use of 
Quick Draw 

Since you are reading this, I assume you 
have become fairly familiar with the HCG. 
As you probably noticed from the demo, all 
shapes that were drawn had to be erased by 
drawing a blank over them. There is 
another way. Quick Draw is set up to allow 
exclusive "OR" (EOR) drawing to be 
done, as well as "Normal". If the EOR 
mode is set, the shape may be drawn with- 
out overwriting any background scenery 
that you may have drawn (much like 
XDRAWing with shape tables). The shape 
is then erased by drawing it again in the 
same spot. You set the mode for drawing by 
poking a certain location in the HCG with 
one of 2 values. 

To set the STORE mode (normal): 
POKE 2125,145 
or from machine 
$84D:9D 

To set the EXCLUSIVE OR mode 
POKE 2 125,81 
or from machine 
$84D:51 

There are many snore possibilities yet to 
be discovered in using Quick Draw. Let 
your imagination run free and see what you 
can create. 

How Does It Work? 

A hi-res character generator is really very 
simple. Instead of calculating the vector, 
you simply grab a byte from one location 
and put it in another. Looking at it in this 
way, a HCG is nothing more than an elabo- 
rate Memory Move routine. To get a true 
idea of how this works, I have included the 
fully remarked source code. Even if you are 
not a machine language programmer, the 
remarks will let you know what is BASICly 
going on. 

The editor is a bit more complicated. It 
has many machine language links that 
speed up the editing of shapes tremendously 
and, as such, is very hard to explain, I have 
highlighted each routine with a REM. One 
machine language routine of special interest 
is GET. This machine language subroutine 
enlarges the current shape and places it in 
the edit screen. Even though this routine is 
in machine language, it is still slow (you 
should have seen it in BASIC). 

Here is a prime example of how shape 
tables and a HCG complement each other: 
the cureor is a vector shape. Quick Draw 
was not developed to replace shape tables, 
only to speed up certain types of graphics. 
Shape tables are still very valuable when 
speed is not of the essence and maneuver- 
ability with minimum code is. 
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Locations of Interest 

The following is a list of the machine lan- 
guage routines used by the editor. The 
source code explains how to use each rou- 
tine from machine language or BASIC. 

GET: 5888 or $1788 

ERASE: 818 or $332 

FLIP: 884 or $374 

EDITOR CHARACTER SET: 3072 or 

$DO0 
WORK BUFFER: 6144 or $1800 
MOVE FROM BUFFER: 887 or $327 
MOVE TO BUFFER: 796 or $3IC 
CHANGE HIGH BIT AND 

INVERSE: 844 or $34C 

Other Notes 

To change the characters I use for the edi- 
tor, LOAD the file EDITOR SET. I only use 
the inverse characters. All block sizes are I 
by 1. 



1690 
1788 
17t# 
1720 
1738 
1748 
1738 

int 

1778 
1788 
1790 
1880 
1811 
1828 
1838 
1848 
1838 
I860 
1870 
1880 
1890 
#00 
ttil 
1928 
1938 
1948 
1930 

mt 

1970 
1988 
1998 
2800 
2810 
2020 
2030 
2040 
2050 
2860 



STA (POINTER),* STORE BYTE IN CHARACTER SET 

BNE CONT.HOVE.TO IF NOT DONE CONTINUE 
RTS DONE, SO RETURN TO BASIC 



HOVE.FROM: MOVES A CHARACTER • 
FROM THE CHARACTER SET TO THE « 
EDITOR'S H0RK BUFFER. NUMBER « 
BYTES TO HOVE IN *D0 (DEC. > 
208) AND CHARACTER LOCATION # 
(FROM SPOT) -1, IN 101. *D2 < 
(DEC. 209.210), THEN JSR 1327 * 
OR CALL 807. • 



NOVE.FRON LDY START SET NUMBER OF BYTES TO HOVE 
CONT. HOVE. FROM 

LDA (POINTER), Y SET BYTE TO HOVE 

3TA KORK.CHAR Y STORE BYTE IN HORK BUFFER 

DEY 

SHE CONT.HOVE.FROH 

RTS 



i CLEARS CHARACTER SET IN * 

♦ HENDRY. TO USE 'CALL 818'. * 

« HONITOR *332. * 
i 



LDA /CHAR. SET POINT TO CHARACTER SET 
STA STORE+2 
LDA ICHAR.SET 



2070 STORE STA CHAR. SET ERASE 

2080 DEY NEXT BYTE 

2898 BNE STORE CONTINUE KITH BYTES 

2100 DEX NEXT PASE 

2110 BEfi DONE.ERASE FINISHED? 

2120 INC STORE+2 GET NEXT PASE 

2130 BPL ERASE2 FORCED JUKf 

2140 DONE.ERASE RTS DONE. SO RETURN 

2150 

im 

2170 

2188 

2190 

2280 

2218 

2228 * NODE 0-CLEAR, 1-SET -*D3 

223| i 

2240 
2230 

2260 SET.HIGH.BIT 

2270 LDY START START ON BYTE 

2288 HISH.BIT LDA NORJC.CHAR+l.Y SET BYTE TO CONVERT 



i SET KI8H BIT IN NORK BUFFER 
» HONITOR 34C. CALL 844 
♦ BYTE TO START ON- *D1 (209) 
t BYTE TO STOP DN - *D2 (210) 



(211)* 
■ft 



2298 
2388 
2318 
2328 

2338 CLEAR 
2340 SET.BIT 
2330 
2360 
2370 
2380 
2398 
2480 
2410 
2420 
2430 
2448 
2430 
2468 
2470 
2480 
2490 EOR 
.1 



LDX NODE CHECK NODE 

BEfl CLEAR 

ORA 1*30 SET HI8H BIT 

BK1 SET.BIT 

AND l*7F CLEAR HISH BIT 

STA HORK.CHAR+l.Y SAVE CONVERTED BYTE 

1NY 

CPY END DONE? 

BNE HISH.BIT NO 

RTS 



EXCLUSIVELY OR BYTES (INVERSE) * 
MONITOR 364, CALL 86B • 
STARTINB BYTE-ST » 

ENDING BYTE-EN * 



LDY START SET FIRST BYTE 
LDA HQRK.CHAR+1,Y SET BYTE 
EOR «7F INVERSE IT 
STA N0RK.CHAR+1,Y SAVE IT 
INY 

DONE? 



ERASE LDX MB 
ERASES LDY 1*0 



NUMBER OF PASES TO ERASE 
EACH PASE HAS 256 BYTES 



2388 

2318 
2328 
2330 
2340 
2550 
2560 
2570 
2581 

2390 # 

2600 t RIP CURRENT HISH BIT ft 
2610 f MONITOR *374, CALL B84 * 
2620 t BEGIN AT BYTE ST * 
2630 » END AT BYTE EN » 

2640 * 

2650 

2668 

2678 FLIP LDY START SET 8ESINNIN6 BYTE 

2688 FLIP. Cffln LDA WRK.CNAR+1,Y SET BYTE 

2690 BHI CLEAR. BIT 

2700 ORA 1*80 SET HIGH BIT 

2710 BMI NEXT 

2720 CLEAR. BIT AND **7F CLEAR HISH BIT 

2738 NEXT STA NORK. CHAR+1 , Y SAVE CONVERTED BYTE 

2740 INY SET NEXT BYTE 

2730 CPY END DONE? 

2760 BNE FLIP.CONT NO. SO CONTINUE 

2770 RTS 



CPY END 
BNE .1 
RTS 
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G€t.Obj (Step Four) 



1000 
tin 

mt 

1030 
I Ml 

\nt 

im 

1171 
1080 XP 

1191 yp 
ii0i n 

1110 yn 
1120 SHAPE) 
1130 3HAPE2 
1140 DRAN 
1130 SETHCOL 
1160 HPOSN 
1170 TEMP 
1180 XSAVE 
1191 rSAVE 
1200 START 
1210 END 
1220 SIT 
1230 XP2 



THE 6ET ROUTINE 

BY R08B CANFIELD 
COPYRIGHT BY SOFTKEY 



,eq m 

.Efl »t 
.E9 $02 
.Efl *#3 

.Efl %m 

.Efl *30E 

.Efl %m\ 

.ED (F6EC 

.Efl If 411 
.Efl 18 
.EC « 
.ED M 
.EO*B 
.ED 4C 

.ed m 
.Eo $fe 



1240 WRK.BUFFER .ED $1800 
1251 



START BYTE 

ENDING BYTE 

BIT TO DRAM, >=8 MEANS DRAW ALL 

HOLDER FOR X-POSITION 



1260 

1270 

1280 

1290 

1300 6ET 

1310 

1320 



.OR (1700 

.TF OET.OBJ 

LDY START 
LB* XP 
STX XP2 



GET MHERE TO START 
SAVE X-POSITION 



1330 NEXT.BYTE LDA N0RK.6UFFER.Y 



1340 

1390 

1360 

1370 

1380 

1390 

1410 .2 

1410 

1421 

1430 

1441 

1450 

1460 

1471 .1 



SAVE STATUS 

I8N0RE COLOR BIT 

SET BIT NUMBER 

SKIP SEPARATE BIT ROUTINE 

YES 

SET PROPER BIT 



PHP 
AND «7F 

LSI BIT 
CPX 118 

BCS .1 

BEX 

LSR 

BEX 

BPL .2 

LDX XP2 

STX XP 

LOX 111 SET COUNTER 

8NE BIT.LOOP FORCES BRANCH 

LDX t«7 LOOP FOR BITS 



SET ORIGINAL X-POSITION 



1480 BIT.LOOP JSR SAVEALL 

1491 LSR 

1501 STA TENP 

1311 BCS DRAN.OUTSIDE 

1521 LDX 1100 HCOLBR*0 

1530 JSR SET.POSN 

1540 LSY /SHAPE! 

1550 LDX ISNAPE1 

1560 LDA f*8 

1570 JSR DRAN 

1580 JH? SET.CENTER+1 

1590 DRAN.OUTSIDE LDX 1*03 HCQLOfi*3 



JSR SET.POSN POSITION SHAPE TABLES 

LSY /SKAPE1 XBRAH 1 

LSX ISHAPE1 

LDA 0t0 ZERO ROTATION 

JSR DRAN XDRAN SHAPE 

PLP SET STATUS BACK 

PHP 

fifll SET.CEHTERtl CLEAR/SET CENTER SQUARE 

IB! t$M CLEAR CENTER 



1691 SET.CENTER BIT 003A2 LSX 1*03 HIDDEN 

1700 JSR SET.POSN 

1710 LDY /SHAPE2 XDRAU 2 

1720 LSI 0SHAPE2 

1730 LDA #$00 

1740 JSR DRAN 

1751 NEXT.BIT JSR RESTORE 



1760 CLC 

1770 LDA XP 

1780 ADC 104 

1790 STA XP 

1800 LDA TENP 

1810 DEX 

1820 BNE BIT.LOOP 

1830 LINE PLP 

1840 CLC 

1850 LDA YP 

I860 ADC l$4 

1870 CUP YH 

1880 BCC NEXT, LINE 

1890 BEfl NEXT.LINE 

1900 NEXT.COLURN LDX YN 

1910 STX YP 

1920 GET.NEXT.BYTE Iff 

1930 CPY ENS DONE? 

1940 BNE NEXT.BYTE 

1950 EXIT RTS 



CLEAR OLD POINT 
INCREMENT POSITION TO PLOT 



continued on page 64 




fcAN-D-ftPPlE 



CftN-D-APPLE Eoiputer Club has in 
extensive software library available 
to tethers, for the APPLE eoiputer, 

New our teibers can RENT fantastic 

proorais for lot* lot* prices!!! 
Rentals are about 1/5 of their value 
Ne carry good business, educational 
entertainment and utility software. 
Bulk prices available for eeihers an 
diskettes and hardware, 

-JOIN NOWi- 

Send $10.00 for eeibership, catalog 
and rental information, 

flail to: CAN-D-APPLE Computer Club 

Box 72 R.R.tl 

Ifanotick, Ontario 

KOA 2N0 CANADA 

Ne accept Visa, Mastercard, 

Certified Check or Money orders. 
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Text Graphics wmti$m&m 13 

The following routines are just a few of the more imagina- 
tive graphic displays that use only the text page. 



REM BOX 1 

If TEH : HOKE : C0L0R= 10: FOR I = 8 TO 18 STEP 2 

1? REN (USE L0-8ES ON TEXT PAGE) 

21 VLIN 28 - 1,21 + I AT 21 + I: VLIN 28 - 1,20 t I AT 

20 - I 
31 HLIN 20 - 1,20 * I AT 21 - I: HLIN 20 - 1,20 » I AT 

20 t I 

39 REN (ALTER TEH WINDOW AND ERASE) 

40 NEXT : POKE 32,3: POKE 33,34: POKE 34,2: POKE 35, 

1?: HONE 
50 VTAB 19: HTAB 9: PRINT "YOUR MENU 60ES HERE" 

59 REN (SCROLL THE MESSAGE UP) 

60 FDR A = 1 TO 15: PRINT : FOR I = 1 TO 50: NEXT j NEXT 

: GOTO 50 



THE DISK EDITOR 



i o 



Bf Grata* A. Ctaewa 



O 




Better than Disk Prep, Dos Boss 
or Dise-Q-Doc II 
Great for repairing blown disks!! 

FEATURES: 

-First ever VTOC Editor. 

-Disk Scanner; scan and search disk 

for bad sectors. Locks out bad 

sectors so disk can still be used 
-Track/Sector Editor, 
-Dos Cstiand and Error Editor; 

for customization of Apple DOS. 
-Disk Copier Mill also copy soie 

disks nith non standard DOS. 

ONLY ItS 1 ?. 95 US 

(Please add 12.50 for shipping) 

Distributed By Can-D-Apple Software 
Library. Box 72, RRI1 Nanotick, Ont. 
Canada, KOA 2*0. 

He accept Visa, Mastercard, 

Certified Check or Honey Orders. 

Dealer inquiries invited 



1,20 + I AT 20 ♦ 



1,20 * I AT 



REN BOX 2 

10 TEXT : HONE ; C0L0R= 10 

20 FOR I = 2 TO 18 STEP 2'. VLIN 20 

I! VLIN 20 - 1,20 * I AT 20 - I 
30 HLIN 20 - 1,20 + I AT 28 - I: HLIN 20 

20 t 1 
48 POKE 32,22 - I: POKE 33,(1 - 1) ♦ 2: POKE 34,11 

I / 2: POKE 35,10 +1/2 
51 HONE : FOR J = 1 TO 50: NEXT : NEXT 
60 At = 'YOUR MENU GOES HERE': FOR A 

0:At < At + '-": NEXT 
69 REN (SCROLL HESSASE TO THE LEFT) 
71 At = RIGHT! (At, LEN (At) - tt * 
80 VTAB 101 HTAB 2; PRINT At: FOR A 

: GOTO 70 



LEN (At) TO 3 



LEFT* (At,l) 
I TO 50: NEXT 



REM BOX AWAY! 

10 HOME : C0LOR= JJ; VTAB 10: HTAB 8: PRINT "AFTER Y 
0U CHOOSE...' 

19 REM (SHRINKING SQUARES) 

20 FOR J = 1 TO 1000: NEXT : FOR I = 18 TO 2 STEP - 

2: HONE 
30 VLIN 20 - 1,20 + I AT 20 ♦ I: VLIN 20 - 1,20 + I AT 

20 - I 
40 HLIN 20 - 1,20 + I AT 28 - I: HLIN 20 - 1,20 * I AT 

20 ti 
50 FOR J = I TO 58: NEXT i NEXT ! HONE 
68 VTAB 18: PRINT 'THE MENU VANISHES... BY SHRINKING 
ANAY, " 



8 
5 
10 



20 
22 
31 



40 

42 
50 

60 
70 
90 



- q: PRINT Ct;: HTAB 21 
D: PRINT Ct;: HTAB 41 • 



- g: print 

Q; PRINT 



REM TEXT MARQUEE 1 

GOTO 90 

VTAB l: HTAB 11 
Ct;: HTAB 31 - 

ct; 

VTAB C: HTAB 1: PRINT Ct 
VTAB 10 + 9: HTAB 1: PRINT Ct 
VTAB 20: HTAB 9: PRINT Ct;: HTAB 18 ♦ 0: PRINT Ct 
;: HTAB 20 t B: PRINT Ct;: HTAB 30 + 0: PRINT Ct 



VTAB 21 - fi: HTAB 48: PRINT Ct 
VTAB 11 - S: HTAB 48: PRINT Ct: 
IF PEEK ( - 16384) < 
POKE - 16368,8: IF M 
I* & NORMAL : RETURN 
HOME :At = 'I'lBt = ' 



RETURN 
128 THEN RETURN 
■ 1 THEN X = 0.' INVERSE 



RETURN 



"THE CORE MARQUEE 

SS ANY KEY..." 
100 FOR B - 1 TO 10 
199 REM LIGHTS OFF! 
280 Z% = St: 60SU8 10: 80SUB 50 
299 REM LI6HTS BACK ON! 
308 Ct * At: GOSUB 10: NEXT .' GOTO 188 



": VTAB 18: HTAB 12: PRINT 
VTAB 12: HTAB 12: PRINT "PRE 
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LO-ReS Graphics continued from page 18 



Lo-res color is simple and useful for really colorful dis- 
plays. Programs directed toward children often use the lo-res 
screen, but some very interesting arcade games also use lo- 
res. 



(advertisement) 



IF YOU LIKE 



8 REH LO-RES KALEIDOSCOPE 

m 6R 

240 Rl = RND (1> t I? 
21* R2 = RHB (1) * 1? 
220 RC = RKB (1) I 16 
m COLOR- RC 

318 VLIN 28 - Rt,20 t Rl ft 28 - R2 
320 VLIN 28 - R1.28 * Rl AT 28 * R2 
338 HUN 28 - Rt,20 t R! AT 28 - R2 
348 HLIN 28 - Rl,28 t Rl AT 28 + R2 
348 VLIN 28 - R2,28 t R2 AT 28 - Rl 
378 VLIN 28 - R2.20 + R2 AT 28 + Rl 
368 HLIN 28 - R2.20 * R2 AT 28 - Rl 
398 HLIN 28 - R2,28 ♦ R2 AT 28 * Rl 
998 60T0 288 




YOU'LL LOVE 




®&u ®<F FOOLl ®^©^M 



8 REfl LO-RES KALEIDOSCOPE 2 

18 6fi 

28 FOR A = 3 TO 58: FOR B = 1 TO 19: FOR C = TO 19 

30 fl = B + C: C0UJR= C • 3 / (8 * J> * 8 » A / 12 
48 PLOT S,D: PLOT D,B: PLOT 48 - B,40 - B: PLOT 48 - 

D,4f - B: PLOT D,40 - B: PLOT 40 - B»D: PLOT B,4 

8 - B: PLOT 48 - fl,B 
58 NEXT : NEXT : NEXT : 60T0 20 




FOR THOSE WHO HAY HOT BE AWARE, FIRE ORGAN 
WAS THE FIRST 'ALBUM' OF DYNAMIC (EVER- 
CHANGING) VISUAL COMPOSITIONS TO BE 
PRODUCED BY VAGABONDO ENTERPRISES. FIRE 
ORGAN WAS, AND STILL MAY BE. AVAILABLE FREE 
FROM MOST APPLE DEALERS. 

NOW YOU CAN SEND FOR SPARKEE, WITH TWO 

DOZEN NEW DYNAMIC WORKS OF ART, GUARANTEED 

TO DELIGHT YOU WITH THEIR BRILLIANT COLORS 

AND GRACEFUL FLOWING PATTERNS OF 

CONTINUALLY MOVING SHAPES, LINES AND CURVES. 

SPECIAL OFFER TO READERS OF HARDCORE : SEND 
JUST ti9.95 (PA RESIDENTS ADD H.20 SALES TAX) TO 

KEN SHERWOOD 
117-B N. 25TH ST. 
READING, PA 19606 

IN RETURN, SPARKEE WILL BE SENT TO YOU BY 
FIRST CLASS MAIL. 



DETAILS: SPARKEE REQUIRES A 48K APPLE WITH 

DISK DRIVE. SPARKEE AND FIRE ORGAN ARE 

WRITTEN IN THE LANGUAGE OF CEEMAC. FIRE 

ORGAN, SPARKEE, CEEMAC AND THE FIRE ORGAN 

LOGO ARE ALL (TM) OF VAGABONDO ENTERPRISES. 

SPARKEE IS NOT COPY-PROTECTED. 



SCREEN DUMP (Partial) OF KALEIDOSCOPE 1 
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, vjf Apple graphics that have 
been shown (memory, text, Jo-res. hi-res v color, vectors, 
and block graphics), the real tost of a program that uses 
graphics £an: be summed; up in a single word: 



Dependiwg on the object that must be moved, certain 
forms of animation are more appropriate. For example,, a 
bullet (or missile): travels quickly so: it is not necessary to 
provide hit- by -bit motion. Using a character generator and 
printing consecutive: positions thataresevcn nreight pixels 
away or farther is sufficient. FOf a slug that travels si owl y, 
consecutive imager must be. only a couple of bits apart, 

A problem novice animators discover is that: color is dif- 
ficiili to maintain unless certain precautions are observed. 
White and black arc easy to maintain, but other colors can 
only be preserved when consideration is given to that old 
odd/even pixel dilemma. ::.'■. 

Ope solution is to Emit horizontal motion to multiples of 
two characters, This allows a shape to remain on either 
even or Odd bytes, but unless the animation is; very,, very 
fast, it will appear "jumpy" and uneven. Another solution 
is available to animators using, a character generator. In this 
case, at least Jtwo shapes must be created: W -order to pre- 
serve color; : One for even bytes (character ^positions) and 



The best solution ism move shapes by two pixels horir 
zontally. Its easy with a shape table. But its more difficuh 
when using, a; block (character) generator because several 
overlapping shapes miist be created, each two pixels Offset 
from the previous shape. The illustration "Move By Seven 
Shapes" shows that a block is only seven pixekacross. so a 
given twoi-pixet pattern is repeated every two blocks ( 14 
pixels) , and it takes seven shapes (six of them spanning two; 
whole characters each) to move to the next position: where 



the patter.. . 

shapes must be created ; .using ! 3: character-blocks, to 
accomplish thehorteontat. two-pixel movement b£ a single 
shape, ' : : ".'. :: . . -,:' 

BASIC programs have the most problems with ! anima- 
tion, because of the relatively slow; speed: of ; Applesoft. 
One solution would be to compile the Applesoft program . 
Another solutionis to use:nt-res machine routines by 
CALLing them from BASIC. ;An:exampie of one such rou- 
tine is (be Quick Drtiw program in this issue. : : 

The following program is an example of animation using 
Quick Draw. It's called Space Raiti, by Rich Osde. Origi- 
nally submitted as a text game, it was elevated to : hknes 
using Quick Draw 
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SPACE RAID 



REQUIREMENTS: 
QuickDraw 1.0 
An Apple II + . with Applesoft in ROM . 

There are several steps in getting Space Raid' tip and fun- 



l.Have Quick Draw on disk because the program 
BLOADsit:,' .":' ...■■ 

2. Type in the Space Raid Character Set. In this instance, 
not all 256 character positions are used, only those in the 
NORMAL set (the . ASCII value range of W to 3) ■ The 
easiest way; to put them ihta memory' (and thenontbdisk) is 
to type i n the suppl ied he x dump ; An alternate method: (one 
that I suggest) is to use the Qui£k Draw editorand recreate 
the shapes from the hi-res illustrations provided.; By using 
the illustrations as a guide, exact replicas can be made, and 
you can immediately use the editor for something that: will 
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w,-.vvwvv* 



■-^AA- 





^*ri» («i 



[hat \ou can make on-thc-spol alterations to the chat 



J. Save the Character Set {using Q.D; 
DRDB.r$ft\CE RAlD.0i 

4> Type in; the ,aettMi,l game program. 
•'.•j'.'SAVBORDE^PACfiHAIDI.J 

Oirectioiis For Play 

' ;Key ' ;13se " . ; ■ 

A travel upward 

Z travel down ward 

< r+.,' , mwve left 

* — -. > . ' nioiwe right 

Sp9C£ sfaootl 

GameOtgect: 

. Shoot the raiders {{he round shapes) by f irSii 



• ■ - Shoot the raiders (|he round shapes) fey firing a torpedo 

■ from your starship. Vour fuel is used whenever y Ou travel. 

■ Once .you start traveling.; yotir.stap will- stop :ordy whets 
yourtorpcifo is in. ffioliott. Of course, ypur torpedoes are: 
limited, and when you runoutyoU have to fly; through the 
appi c in 'ord ef to ' res a i n : to fpedt ic s . No-, it 4 oesn "t : re f ue 1 the 
Ship.- ■■ :..,-.-:- ::.■■■.■■■■•:■-:.:; :' 

ffiyou snoot all the* raiders, you are presented with, a- still 
more. eorhptex ' space . scSne ' with' '.mote ' raiders; .and more 
stars,' and y 6ur ship is. refueled.- . . - : ■ • ; 



, ; Efon't 'shoot : the; apple. Doif i try to fly; througn a star. 
And don't rjm put of fuel %, . ■ , : 

; You get three: ships;: Arid there- are nine skjli levels fiorn 
which to rriake'V (Hjr select) on .> 



Move 



napes 



:\,J$dch ®f the seven shapes can be 
\ slightiy different, For example, 
\ H'SEggf)?- legs can M attached far 
.1 additional animation: 
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ANIMATION 



5C OPE : 388 SHIPS: 3 FUEL: IGiS 



5FRCE FIR ID 
BV P.ICH OPDE 

fl GflrC OENONSTRhTIHG flHINRTICN NETHOCS 

mim mm cahfield's quick mm utility 



SELECT P SKILL LEUEL IS- 
I :EhSIEST: TO 3 : HfiFDEST : 



lj IF PEEK (114) » 256 * PEEK 
(103) < > 14385 THEN POKE 
114,64: POKE 113. 1: POKE 163 
84,1: PRINT CHRt (4) "HUN BR 
DE. SPACE SAID 1.0' 

20 RE* 

LINK QUICK DRAW 

30 GOSUB 1360: SQSUB 1520: GOSUB 
1440 

41 HONE ; RESTORE 1 SCSUB 1110: GOSUB 
1330: HOME : H6R : POKE - 1 
6302,&:HT ■ t 

50 sh = 10:SV = 18:A1 = 0:fl2 = 0: 
BO = 280; SP - 3:tp = 10: SC « 
8:St = ">": 6DT0 98 

60 m 

CHECK X,Y 

70 L - S(K t vf: RETURN 

80 REM 

CLEAR MATRIX 

H POKE 109, PEEK (107): POKE II 

0, PEEK (108): DIM 3(40,24) 
100 m 

FILL SCREEN 
110 FOR I = 1 TO SK * 3 + 8 
120 REM 
RND X.Y 
130 K » INT ( RND (1) » 38) t 2: 

Y = INT < RND (1) » 19) M 

: GOSUB 70! IF SU,T» OR Y = 

10 THEN 130 
140 Ct = "I": IF I > SK » 2 + 5 AND 

I < SK * 3 + B THEN Ct = '*' 



For an explanation of "Space Raid " 
see the previous page. 



150 IF I = SK * J + 8 THEN ® * 

160 VTAB V: HTAB K: PRINT CfiSIX 
,Y) * ASC (Ct) t 128: NEXT 

170 RE« 

SET FUEL FOR SKILL 

180 FU ■ 400 + 3K « 1001PL ■ SK ♦ 

2: 80S0B 1090 
190 REM 

READ KEYBOARD 
200 K * PEEK f - 14384): IF K « 

148 THEN 680 
210 REM 

DIRECTION OF SHIP 
220 IF K » 134 THEN 5* ■ HHU ■ 

- l:A2 = 
230 IF K ' 149 THEN St ■ ">\AI * 

l:A2 = 

193 THEN St ■ 



240 
250 



260 
270 



290 
300 
310 
320 



340 
NO 

3S0 



IF X « 
0:A2 
IF K 
0:A2 



1 



,A ":Ai * 
7':A1 = 



218 THEN St * 
1 

VTAB SV: HTAB SH: PRINT ■ 

SH = SH ♦ mm = SV * A2 

REN 
WRAP-AROUND? 
280 IF SH < 1 THEN SH = 

IF SH > 39 THEN SH 

IF SV < 2 THEN SV = 

IF SV > 23 THEN SV * 2 

REN 
SHIP COLLIDED 

130 x = SH:v - SV: gosu 

THEN 440 
REN 
COLLISION 

VTAB SV; HTAB SH: PRINT St: IF 
TP = THEN POKE 1,10: POKE 
2,5: CALL 768 



3V 

= 1 

23 



70: IF L 



360 IF Al = 8 AND A2 = THEN 20 


370 REM 
DECREMENT FUEL & CHECK 

380 FU = FU - 5: VTAB 1: HTAB 30: 
PRINT FU' ': IF FU < 200 THEN 
POKE 1,230: POKE 2,10: CALL 
768 
390 IF FU < > THEN 200 

400 VTAB l: PRINT ' YOU 

.ARE.ODT.OF.FUEL " 

410 FUR E - 1 TO 100: POKE - 16 

334. PEEK ( - 16336): NEXT I 

VTAB SV: HTAB SH! PRINT "i" 

420 FOR I * 1 TO 100: NEXT : VTAB 

SV: HTAB SH: PRINT " " 
438 FU = 400 * SK f 100: 60TO 530 

440 REN 

DOCKED WITH STARBASE 

450 IF L < > 192 THEN 500 

460 SH = SH t Al:SV * SV + A2:X = 

SHIY • SV: 60SUB 78: IF L THEN 

500 
470 REN 

MAKE NOISE 
430 FOR I * 20 TO 1 STEP - 1: POKE 

1,1*2 I 5: POKE 2,7: CALL 

748! NEKT :TP = 10: GOSUB 10 

90 
490 SOTO 200 

500 REN 

SHIP DESTROYED! 

510 Ct « CHRt (L): VTAB SV: HTAB 
SH; PRINT "t": FOR 1 = 1 TO 
178; NEKT : VTAB SV: HTAB SK 
: PRINT Ct 
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520 REM 
BOOM! 

530 FOR N - 1 TO 100 STEP 8: POKE 
1,N: POKE Ml CALL 768: NEXT 
:SP « SP - I 

540 FOR HT = 1 TO 1000: NEXT :S$ 

= ">':ai * 0IA2 ' 0:SN « 10 
:SV * 10: POKE - 14368,0 

550 REM 

ANOTHER TRY? 

560 VTAB l: FOR I « 1 TO 39: PRINT 
" *|: NEXT : PRINT : SOSUB 1 
090: IF SP THEN 200 

570 REH 

SAME OVER 

5S0 H6R ! POKE - 16302, 8:At = " 
GAME OVER "; FOR S = 1 TQ 3 
8:P$ * • ": IF S > 14 AND S < 
25 THEN P* = HID* (M,S - 1 
4,1} 

590 VTAB 5: HTAB S: PRINT P*'>'{ 
: IF PI < > ' ' THEN POKE 
1,S * 3: POKE 2,10: CALL 768 

600 FOR J = 1 TQ 40! NEXT J,S: HTAB 
39: PRINT " ": POKE - 16368 

610 REN 

SHOOT LETTERS 

620 VTAB 5: HTAB 5: PRINT ">'; FOR 

H = 1 TO 10001 NEXT I FOR 1 = 

16 TO 24: IF I « 20 THEN NEXT 
630 POKE 1,20: POKE 2,40: CALL 7 

68 
640 FOR J = 6 TO I - l; VTAB 5: HTAB 

i\ PRINT ' +': NEXT J! VTAB 

5: HTAB I: PRINT T: FOR K = 

1 TO 100: NEXT K 
650 VTAB 5: HTAB I: PRINT " ": NEXT 

I VTAB 51 HTAB 5: PRINT ' * 
660 FOR I = 1 TQ 1000: NEXT ! SOTO 

40 
670 REN 

SHOOT TORP 
680 POKE - 16368,0 
690 IF Al = AND A2 - THEN 20 


700 REH 

ANY TORPS LEFT? 
710 TP = TP - l: IF TP < THEN T 

P = 0: 60TO 200 
720 POKE 1,50! POKE 2.60: CALL 7 

68!BH = SH + A1IBV = SV *■ A2 
730 REH 

TORP TRAVEL IS 19 
740 FOR I = 1 TO 19 
750 REN 

WRAP-AROUND 
760 IF BH < 1 THEN BH * 39 
770 IF BH > 39 THEN BH = 1 
780 IF BV < 2 THEN BV ■ 23 
790 IF BV > 23 THEN BV = 2 
800 REN 

HIT SOMETHINB? 
810 X > bh:y = BV: SOSUB 70: IF L 

THEN 860 
820 REH 

PRINT BULLET WITH NOISE 
830 VTAB BV: HTAB BH: PRINT '+": 
POKE 1,10: POKE 2,10! CALL 

768 
840 REN 
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ERASE BULLET; MOVE IT 

850 VTAB BV: HTAB BH: PRINT ' ": 
BH = BH + AUBV = BV + A2: NEXT 
: SOTO 200 

860 REN 
HIT WHAT? 

870 REN <HIT STARBASE?) 
880 IF L = 192 THEN 1060 
890 REN <HIT SATELLITE?) 



900 IF L ? 163 THEN FOR 1 = 1 TO 
15: POKE - 16336. PEEK i - 
14336): NEXT : GOTO 200 

910 REH <THEN PLANET HIT) 

920 REH 

NOISE FOR HIT 

930 FOR I = 62 TO 1 STEP - 7: POKE 
1,1: POKE 2.1: CALL 768: NEXT 
i VTAB BV: HTAB BH; PRINT "4 





Orde.Space Raid.Ch 


1 
3 




(Character Set for Space Raid) 


i 

3 
} 


1300- 


00 00 00 00 00 00 00 00 


1488- 06 08 34 7F 7F 7F 3E 14 


8 n 


1308- 


0C 0C 0C 0C 0C 00 0C 0C ! 


1408- IE 23 23 23 3F 23 23 23 


A H 


1318- 


00 00 00 00 00 00 00 00 " 


1410- IF 23 23 IF 23 23 23 IF 


B 


1318- 


00 22 1C 14 1C 22 00 00 # 


1418- IE 23 03 03 03 03 23 IE 


C 


j 1328- 


00 00 00 00 00 00 00 80 * 


1420- IF 23 23 23 23 23 23 IF 


D g 


] 1328- 


08 00 00 00 80 08 00 00 % 


1428- 3F 23 03 8F 83 03 23 3F 


E i 


| 1330- 


28 11 84 10 44 09 20 02 & 


1430- 3F 23 83 0F 83 03 03 03 


F | 


] 1338- 
j 1340- 

] 1348- 


18 10 08 80 08 00 00 00 ' 


1438- IE 23 03 03 3B 23 23 IE 


6 j 


00 00 00 80 88 00 88 00 ( 


1440- 23 23 23 3F 23 23 23 23 


h i 


00 00 00 08 08 00 80 00 > 


1448- IE 0C 0C 0C 0C 0C 0C IE 


I ] 


j 1350- 


1C 3E 6B 7F 6B 3E 1C 00 # 


1450- 3C 18 18 18 18 18 19 0E 


J r 


1 1358- 
3 1360- 


00 08 1C 36 1C 08 80 00 + 


1458- 23 23 13 0F 13 23 23 23 


K P 


00 00 80 00 00 00 %t 88 , 


1460- 03 83 83 03 83 03 23 3F 


L i! 


! 1368- 


00 80 00 3F 3F 00 88 00 - 


1468- 37 2B 2B 2B 2B 2B 23 23 


M j 


I 1370- 

I 1378- 


00 00 00 08 08 80 88 00 . 


1470- 23 23 27 2B 33 23 23 23 


N g 


E3 F7 FF D5 D5 9C 88 80 / 


1478- IE 23 23 23 23 23 23 IE 


[ 


] 1380- 


IE 23 27 2B 33 23 23 IE 


1488- IF 23 23 IF 03 03 K 03 


P Ij 


3 1388- 


0E 0C 0C 0C 0C 0C 0C IE 1 


1488- IE 23 23 23 23 2B 13 2E 


Q i 

R I 


j 1390- 
j 1398- 


IE 31 30 18 0E 83 03 3F 2 


1490- IF 23 23 IF 23 23 23 23 


IE 31 30 10 30 30 31 IE 3 


1498- IE 23 03 IE 30 30 31 IE 


3 
T 


| 13A0- 


19 19 19 3F 18 18 IB 18 4 


14A8- 3F 2D 8C 0C 0C 0C 0C 0C 


j 13A8- 


3F 03 03 IF 30 30 31 IE 5 


14A8- 23 23 23 23 23 23 23 IE 


U I 


1 1360- 
3 13B8- 


IE 23 03 IF 23 23 23 IE 6 


14B0- 23 23 23 23 23 23 16 0C 


v 


3F 31 30 18 0C 8C 0C 0C 7 


1488- 23 23 2B 2B 2B 26 2B 16 


W D 


3 13C0- 


IE 23 23 IE 23 23 23 IE S 


14C8- 23 23 16 0C 0C 16 23 23 


X | 


j 13C8- 
1300- 


IE 31 31 3E 30 30 31 IE 9 


14C8- 23 23 23 IE 0C 0C 8C 0C 


Y 1 


00 0C K 00 00 0C 0C 00 : 


1420- 3F 38 18 8C 06 03 83 3F 


z 


13D8- 


M 00 ff 00 00 00 00 00 \ 


14D8- 00 00 00 00 00 00 00 08 


c 8 


13E0- 
j 13E8- 


FC F0 BE 93 BE F0 FC 88 < 


14E8- 00 00 80 80 80 00 00 00 


\ 8 


00 3F 3F 88 08 3F 3F 00 - 


14E8- 3F 38 38 38 38 38 38 3F 


3 1 


13F0- 
j 13FB- 

] 
] 


9F 87 BE E4 BE 87 9F 80 > 


14F8- 88 9C D5 D5 FF F7 E3 80 


J 

- 3 


00 00 00 00 80 08 00 80 ? 


14F8- 00 00 00 00 00 00 00 00 


] 
] 
] , 

3 ! 


a 'I, ' 4 


+ - V 


For those of you j 


! e 1 


2315E789: 


t if 


using the Quick j 
Draw Editor, use \ 


* r I e d ;.■; r n r- i h i ?i in o 


this illustration as j 


i 






a guide. 


i 


PQRSTUUWXVZ 3 * 


>5HSE5E5E5BESffi2S25 


3 

1 

sssssssr 
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940 FOR 1 = 1 TO 2001 NEXT : VTAB 

BV: HTAB BH: PRINT " p 
950 REM 

ADD TO SCORE 
m SC * SC t SK * 180;HT = HT t 

l:SIBH,BV) ■ 0: 60SUB I#90: IF 

HT < PL THEN 208 
978 REN 
NEW LEVEL 
988 REM 

ANY SHIPS LOST? 
990 IF SP < 3 THEN 1838 
1008 H6R : POKE - 16302,8: VTAB 

18: HTAB 12: PRINT BO" POINT 

BONOS!" 
1818 SC - SC + BO; FOR H = i TO 3 

1828 FOR I = 48 TO 1 STEP - 5; POKE 

1,1: POKE 2,3: CALL 760: NEXT 

: BEIT :B0 « BO t 2 
1038 HSR : POKE - 16382,0: 60SUB 

1098 
1840 REN 

STARBASE DESTROYED 
1050 SK » SK ♦ l: HONE :HT = l:Al 
« 8;A2 = f;st = ">":SH = 18 

:sv = I8:sc = sc * fu: SOTO 

98 
1060 FOR I = 5 TO 170 STEP 2: POKE 

1,1: POKE 2,1 / 5: CALL 748: 
NEXT 
1070 FOR i » S TO 1000; NEXT : GOTO 

SS0 

1090 REN 

TWILIGHT THEME 
1898 VTAB l: PRINT "SCORE: "SO: 
HTAB 15: PRINT 'SHIPS: 'SP): 
HTAB 24: PRINT "FUEL: "FIT 

"; RETURN 
1100 REN 
THEME 
1110 VTAB 5: HTAB 8: PRINT "I 8 

I SPACE RAID 8 t V 
1128 VTAB 7: HTAB 14: PRINT 'BV 

RICH ORDE" 
1138 VTAB 10; PRINT " A SAME DEN 

0NSTRATIN6 ANIMATION METHODS 




**•*■■*■■•*■■■■■■ 1 1 1 i ■ ri * 

i-aB::::::::::::::::;:*::::: 

I 1 H a * a *t3* ■ VO » ■ ■£ 



llllfllflf* I ■ 1 il±m*trmUmi 

i Bj ■ ■ □> * * * *S- ■ - ■ sflj ' * 



1140 VTAB 12: PRINT '0SIN8 ROBB 

CANFIELD'S 6UICK DRAW UNLIT 

V 
1150 FOR I = 1 TO 1888: NEXT il » 

8 
1168 REN 

WHAT SKILL LEVEL? 
1178 VTAB 16: HTAB 8: PRINT "SEL 

ECT A SKILL LEVEL :l-9:' 
1138 VTAB IS: HTAB 6: PRINT '1,; 

EASIEST:. ..TO... 9.:HARDEST: B 
1198 SOSUB 1210ISK * K - 174 
1208 RETURN 
1218 DATA 173.48,192,136,288,5,2 

06,1,3,240,9,282,288,245,174 

,0,3,74,2,3,96 
FOR I « 770 TO 790: READ II 

: POKE I, II: NEXT 
DATA 77,71,77,97 
FOR I = 1 TO 4: READP(I): NEXT 



1220 

1238 
1248 
1250 I = 1 



1268 K » PEEK ( - 14334) 

1278 POKE 748,P(I): POKE 769,5: CALL 

778: POKE 768,P(Il: POKE 769 

,26: CALL 770! FOR J « 1 TO 

□8' NEXT 
1280 I = I tl: IF I > 4 THEN I = 

1 
1290 HTAB RND (1) * 39 t it VTAB 

RND (tl i S t 9: PRINT "i 1 
1308 IF K < 177 OR K > 185 THEN 

1268 
1318 RETURN 
1328 m 

TWILISHT THEME 
1338 DATA 173.43.192,136,288,6,2 

30,1,198.2,248.8,202,288,244 

,166,1,76,8,3,96 

1348 for i * 768 to 738: read b¥ 
te; poke i.by: next 




1350 RETURN 

1368 REN 

OLD COUT 

1378 NI ■ PEEK !43604!:N2 » PEEK 

(43405) 
1388 REN 
QUICK DRAW 
1398 N3 * 3:N4 • 8 
1400 REN 
CHARA 

1410 N5 ■ 0:N6 = 14 
1428 RETURN 
1430 REN 

QUICK DRAW "ON" 
1440 POKE 54.N3: POKE 55.N4: CALL 

43114: REN HAVE DOS CONNECT 

flKSHMNf 
1450 POKE 4,N5: POKE 5.N6 
1460 POKE 6,1: POKE 7,1: REN BL 

OCK SHE FOR CHARACTER 
1470 HONE : HSR : POKE - 16302, 


1480 RETURN 
1498 REN 

QUICK DRAW "OFF" 
1580 POKE 43684,Nl; POKE 43405,N 

2 
1518 END 
1528 RED 

LOAD IN FILES 
1538 IF PEEK (2851) ■ 133 AND PEEK 

12052) = 210 THEN RETURN : REN 

PR06RAN ALREADY IN KEHORY 
1540 PRINT CHR* WBLOAD QUICK 

DRAN.DBJ" 
1550 PRINT CHR* (4)"BL0AD ORDE. 

SPACE RAID.CH" 
1560 RETURN 
1370 REN 

SPACE RAID DEMO 

1580 REN 

WRITTEN BY RICH ORDE 

1590 REN 

COPYRIGHT 1982 

1680 REN 

BY SOFTKEY PUBLISHING 
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ScrCCIl Cruncher press Y for yes and enter its name appear on the screen). 

continued from page 25 (again, you may use ctrl-D to enter a When a picture is decompressed it 

DOS command). The suffix .C will be will appear on the hi- res screen as it is 

nn(; appended automatically to the name of decoded, producing a rather nice scroll- 

Ctrl-D allows you to enter « UUS ^ compresscd version of fa picturc t0 ing cffcct fmm ]eft to right 

command such as CA I ALUO (just distinguish lt fronl the origiria ] fi]e . To use the UN-PACKer in your own 

type: ctrl-D CA1ALOO). If return is pressed, you will exit this programs, first BLOAD UN-PACK. 

Otherwise, the text you enter will be ^.^ ^| say . feg m ^ BLQAD m ^ 

used as the name of a file you wish to ^ m ^ „ no „ which fa no ^^ on ^ 

load. Once the file is loaded, ,t wid be whentheoptionDECOMPRESS(D) of hi-res (S4000). To decompress the 

displayed and compressed. You will see fe — ^ ^ ^ ^ cnter ^ ^ ^ g CALL ?6g examin _ 

the results of the compression at the hot- m Qf ^ compres; , cd fJ • ( c is auto _ Jng ^ SQUrce ^ yQU can determine 

torn or the screen. matically appended, so do not enter it as how to load the coded information any- 

1) How many bytes long the part of the file name). where, and can control where the 
compressed picture is. Again, ctrl-D allows you to enter a decoded picture will be drawn (nor- 

2) Bow many bytes were saved . D qs command . mally on page one of hi-res, S2000) . 

3) The percentage of savings. Pressing RETURN will decompress DEMO consists of three major sec- 
Then you will be asked if you wish to the currently compresscd picture in tions: 

save the compressed version. If you do, memory (if there is none, garbage will 

fj\(^J)X continued from page 25 

IBM 5TX FIRST. TIHE.RAN 2298 

1848 LDY 1148 RESET STORAGE BUFFER 2298 

1858 STY STORASE+2 2388 * 

1868 LDY 1*88 RESET VERT LINE AD 2318 * STORE THE BYTE Off THE HI-RES 

1878 STY BET+1 2328 * SCREEN. 

1888 LDA 1*81 2338 * 

1890 STA ST0RA6E+1 STORAGE BUFFER 2348 

1988 LDA «»20 RESET BET BUFFER 2358 

1918 STA 6ET+2 2360 BET LDA *FFFF, K BET A BYTE 

1928 2370 BIT FIRST. TIME. RAN FIRST TIKE? 

1930 23S0 Bill .1 

1940 » 2390 STA TABLE SAVE THIS BYTE 

1958 ♦ ACTUAL PR06RAH 2488 LDA 1(88 RESET FIRST.TINE 

mi f * 2418 STA FIRST. TIKE. RAN 

1978 2428 MI NEXT 

1981 t 2430 .1 CMP TABLE SAKE AS LAST BYTE 

1990 * USE THE FOLLOWS FQ8NULA TO 2440 BEE REIT YES 

2880 * BET THE ADDRESS OF THE LINE 2458 JSR NEN.ONE SAVE PREVIOUS BYTES 

2818 t TO BRAN ON. 2468 NEXT INC COUNTER UPDATE CHARACTER COUNTER 

2828 * 2470 INY 

2030 ♦ 24B0 CPY 1192 DONE WITH RON? 

2840 2490 BLT LOOP NO 

2050 LOOP 2580 

2068 TYA 2510 

2878 PHA 2528 ♦ 

2068 AND l*C8 2530 * FINISH OLD BUSINESS 

2898 STA BET+1 2548 * 

2181 LSR 2558 

2118 LSR 2560 JSR NEN.ONE SAVE CURRENT BYTES IK TABLE 

2128 ORA BET+1 2578 INX SET NEXT COLUNK 

2138 STA BET+1 2588 CPX 148 DONE? 

2148 PLA 2590 BEfi END 

2158 STA BET+2 2688 LDY 1*00 

214| ML 2610 STY FIRST.TIKE.RAN RESET COUNTER 

2178 ASL 2628 BEfl LOOP ...ALHAYS 

2180 ASL 2638 

2198 ROL 6ET+2 2648 

2280 ASL 2658 * - -- 

2218 ROL BET+2 2668 • NEN.ONE: SAVES THE BYTE AT 

Wt 5& M . 2in * TflBLE ™ E (CMNTERJ NUNBER OF 

2238 m BET+l 2488 I TIKES. AUTOMATICALLY HANDLES 

2248 LDA BET+2 2698 * REPEATINfi CHARACTERS. 

2258 AND «1F 2780 * 

2268 ORA 1*20 2710 

2278 STA BET+2 2728 
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I. Relocate itself and load the fibs. 

II. Compress a picture. 
II], Decompress a picture. 

The first part (I) checks to see if the 
Applesoft pointers are pointed at $4000 
(normally they point at $801). If not, 
they are modified and the program is rc- 
RUN. Next, the program checks to see 
if the required files (PACK and UN- 
PACK) are loaded. If not. they are 
loaded for you automatically. 

The second part (II) will compress a 
picture by getting the picture's name and 
calling the Compress Routine ($803, 
CALL 2651). 

The third section (HI) will decom- 
press a picture ($300, CALL 768). 



2730 
2740 
2750 
2760 
2770 
2790 
2790 
2S00 
2610 
2S20 
2830 
2S40 
2850 
2860 
2878 

2m 

2898 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 



NEW. ONE 



REPEAT 



lilt 



END 



pha 

STV 

LDY 
CPV 
BLT 
LDA 
JSR 
TYA 
JSR 
LDA 
JSR 
LDA 
STA 
PLA 
LDY 
STA 
ATS 



SAVE CURRENT. BYTE 
YSAVE SAVE Y-RE5 
COUNTER 

1*4 USE REPEAT CHARACTER 
NO, REPEAT 

REP. CHAR SET REPEAT CHARACTER 
STORAGE AND SAVE IT 

HO. OF TINES TO REPEATE IN ACCU. 

SAVE IT 

SET CHARACTER TO REPEAT 

SAVE IT 

RESET COUNTER 



STORAGE 

TABLE 

STORAGE 

«S0 

COUNTER 



RETRIEVE ACCUK. 
YSAVE AND Y-RE6 
TABLE SAVE CURRENT BYTE IN THE TABLE 



NO.REPEAT LDfl TABLE SET BYTE TO REPEAT 

CNP REP.CHAR IS IT THE REPEAT CHARACTER 

BES REPEAT YES, HANDLE REPEATING CHAR. 

.1 JSR STORAGE AND REPEAT IT Y TIMES 

BEY DONE? 

BNE . 1 NO 

BES EXIT YES SO EXIT 



* STORAGE: SAVES THE ACCUN. AT 

* STORAGE AREA AND INCREMENTS 
t THIS VALUE 

t 



STORAGE 



.1 



STA *FFFF ADDRESS TO STORE INFORMATION 

INC STORAGE* 1 INCREMENT THIS ADDRESS 
BNE .1 CARRY? 

INC STORAGE+2 YES, SO INCREMENT HI6H BYTE 
RTS RETURN TO CALLER 



CURRENT .BS 1 
CURRENT. COUNT .IS i 
LAST. COUNT ,B5 1 



UN-PACK 



1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
H00 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
12S0 
1290 
1300 
1310 
1320 
1338 
1340 
1350 
1340 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1458 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 



HIRES PICTURE UN-PACKER PROGRAM 

BY 

ROBB CANFIELD 

COPYRIGHTED 1983 
BY SGFTKEY PUBLISHING 



YSAVE M I) 
COUNTER ,E& »00 

REP.CHAR .ES $F£ 



.OR $300 
,TF ON-PACK 



LDX t$00 
LDY 1*40 
STY GET+2 
LDY 1400 
STY SET+S 
JSR GET 
STA REP.CHAR 



Y-REG SAVE AREA 
COUNTER FOR REPEATING 

MARKER BYTE 



RESET COLUMN COUNT TO 
RESET GET TO 14000 



GET REPEAT BYTE 



UN.SCRUNCHER 

JSR GET GET A BYTE TO DECODE 
CMP REP.CHAR IS IT THE REPEAT CHARACTER 
BES DO. REPEAT YES SO RUN THRU REPEAT CYCLE 
JSR STORE NOT REPEAT SO JUST SAVE IT 
BCC UN.SCRUNCHER ...ALWAYS 



DO. REPEAT 



.1 



JSR SET 
STA COUNTER 
JSR GET 
JSR STORE 
DEC COUNTER 
BNE .1 



6ET NUMBER OF TIMES TO REPEAT 

SET CHARACTER TO REPEAT 
SAVE IT 

KEEP TRACK OF COUNTER 
DONE? 
BEO UN.SCRUNCHER YES, SO CONTINUE DECODING 



* THE GET ROUTINE: SETS A BYTE 

f AND INCREMENTS POINTER 

t 

t 



SET 



.1 



LDA *FFFF 
INC GEM 
BNE ,1 
INC GET+2 
RTS 



GET A BYTE 
INCREMENT LON BYTE 

INCREMENT HIGH BYTE 
RETURN TO CALLING PROGRAM 
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1670 
1490 
1490 
1780 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1811 
1820 
1830 
1840 
18S0 
1840 
1870 
1880 
1870 
1900 
1910 
1920 
1930 
1940 
1950 
I960 
1970 
1980 
1990 
2000 
2010 



STORE: STORES ACCUH AT HI-RES 
PftSE mt UPDATES VERT/HORZ 
ADDRESS, ROUTINE FORCES AM 
EXIT TO CALLINS ROUTINE IF 
VOU ARE DONE 



STORE 



m SAVE BYTE TO PLACE ON SCREEN 

TYA GET VERTICAL LINE NUMBER 
PHA CONVERT TO AN ACTUAL ADDRESS 



« USE THE FOLLOWING FORKULA TO 

* SET THE ADDRESS OF THE LINE IE 

* WISH TO DRAW ON. 
t 

i 



* STORE THE BYTE ON THE HI- 

f SCREEN. 

i 



2040 
2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2161 

2170 

21S0 STORE2 

2190 

2200 

2210 

2220 

2230 

H 

2260 
2270 
2280 
2290 
2300 
2310 
2320 



AND ttC0 
STA BT0RE2+1 

LSR 

LSR 

ORA ST0RE2+1 

STA ST0RE2+1 

PLA 

STA ST0RE2t2 

ASL 

ASL 

ASL 

ROL ST0RE2+2 

ASL 

ROL STORE2+2 

ASL 

ROR ST0RE2*1 

LDA STQRE2+2 

AND It IF 

ORA Hi 20 

STA ST0RE2+2 

PLA 



RES 



.1 

.2 



STA *FFFF, X 

INY 

CPY #192 
BLT .1 
LDY *m 
INI 

CPK #40 
BSE .2 

RTS 

PLA 
PLA 
RTS 



SAVE THE BYTE 
SET NEXT VERT LINE 
DONE KITH COLUBN? 
NO SO CONTINUE 
RESET VERT LINE TO 
GET NEXT COLUMN NUftBER 
DONE KITH COLUMNS 
YES SO RETURN TO CALLER 

REMAIN HI THIN THIS PRDSRAH 

PULL OFF LAST CALLER 

AND RETURN TO CALLER 




There are over 2000 lines of program 
in this issue of CORE 

Do you really want to 
type all of that??? 
There | an easier way . . . 
. . . let us make copies for you! 

A disk with the programs contained in 
this issue of CORE is available at dealers 
for $24.95. However, you can get one 
directly from Softkey Publishing for 
only 

$19.95 

(postage and handling complimentary) 



These disks are available: 



CORE ISSUE U\ {Graphics} 
(Struncher, Design Plus, 
Faster Shapes. QuickDraw, 
QD.Edilor, Space Raid) 

DISK CONTROL 

(DiskEdit and DiskView) 



ISSUE #2 

(Artist's Easel, Amber's T's, 
Text Invaders, Relief Mapper) 

ISSUE #3 

(Map Editor, Zyphyr Ware, 
Menu, I.O.B.,HyperDOS) 

Na me 



%mm 



$18.00 



$18.00 



$18.00 



Address. 
City 



Sorry, 

No phone orders. 
No c red it cards. 
No p urease orders, 
U.S. funds only. 



_State. 



_Zip,_ 



Send check or monev order to: 

HARDCORE PROGRAM LIBRARY 

PO. Box 44549 

Tacoma. WA 98444 
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gfega^Get.Obj 




continued from page 53 



I960 NEXT.LINE STA VP 



1971 SEC 






1980 LDA KP 






1991 SBC 128 






2#M STA 1 






2111 3NE BET. KEIT. BYTE 






2130 * 






2040 t SET UP FOR SHAPES 






20SI i 






5fiAfl * 






2070 






2080 SET.POSH JSR SETHCOL 






2090 LDA YP 






2100 LDY *00 






2110 LM XP 






2120 JHP HPOSN 


2190 




2130 


2200 RESTORE 


LDS XSAVE 


2141 


2210 


LBV YSAVE 


21S0 SMALL STX XSAVE 


2220 


RTS 


2160 STY Y5AVE 


2230 




2170 RTS 


2240 




2180 . 


22S0 






HARDCORE COMPUTING #3 

"Relief Map- Editor" 
Page 24. first column. 

Change: 

10040 AA - BB : BB = BMEMJS + 
399 : = AA TO BB STEP 20 : 
GOSUB U000 : NEXT IN 

To: 

10040 AA - BB : BB = g$fi$fj + 
399 : TEST = MAX : GAP = - 
FOR IN = AA TO BB STEP 20 : 
GOSUB 11000 : NEXT IN 



Advertising Index 

Beagle Bros 32 

Gary Brown 14 

Can-D- Apple Computer Club 53,54 

Collegiate Microcomputer 18 

Computer Hideout 2,11 

Eastside Software inside front 

Microware Dist. Inc 44 

Midwest Software 45 

Nibbles Away II 7 

Omega Microware 5,47 

Ken Sherwood (Sparkee) 55 

Superior Software 47 

XR.A.S.H 37 
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MENU 

VOL.1 

How To 

BOIU, 
BAKE 

Bugs 



Sl 







KSfftL 



S< f 4 ® i. v "j 



■ 


■ 






iimi 




^^^^^^^^^^^^gg5^^ 






wmk< iwihe *tfftfmiMNl 

W$m to a »e "^ *«~JasMi 



,.«,■ 




■ V#5 
Travel througM 
Newborn Stars, 
Throbbing Nebu 

^inri^mSlaJik, p6lf ^ 
Flashing Pulsars, 

;Time|liiitjete 5 # : 

SprgqJfes J; /p v /■?■ 
Jrhd even Hyper Space 






.1 



i b: 









; ¥' 



WILL YOU 

mi 

CAN YOU 









J 

r. 



,# 



111 






-•s#i 



STARGEMS to collect. 

w wWm mew 



% 



I 



# 



4 FAST-MOWING, FUti+dOLQR 

M£MENi$ et ^TRAtmr 






Req girls' '48K arid Applesoft; ROM? 

S0FTQUEST 

t*: d; Etox 4a223 

TACOMA, WA,' 98444 



'? ; 



